Question

谁帮我把VB转成delphi的代码

Private Sub Command1_Click()
Dim i As Long, s() As String
list1.clear
s = Split(Text2.Text, vbCrLf)
for i=0 to ubound(s)
if instr(s(i),trim(text1.text)) then List1.AddItem s(i)
next
End Sub
会的帮我下，谢谢了

Answer 1

procedure form1.command1onclick(sender: tobjejct);
var
i: integer;
s: tstringList;
begin
list1.clear;
s := tstringlist.create;
try
s.text := text2.text;
for i := 0 to s.count - 1 do
begin
if pos(s[i], trim(text1.text)) then list1.add(s[i]);
end;
finally
s.free;
end;
end;