Memengal string di delphi

jika anda butuh array string yang akan di proses anda bisa lakukan dg copy ato cara yang lain.

berikut cara yang lebih mudah… ini salah satu cara yang aku gunakan dalam proyek sms gateway…

<pascal>

function SplitStrings(const str: string; const separator: string;
Strings: TStrings): TStrings;
begin
if Strings = nil then
Result := TStringList.Create
else
Result := Strings;
Result.Text := StringReplace(str, separator, #13#10, [rfReplaceAll]);
end;

//pengunaanya misalnya

procedure TForm1.Button1Click(Sender: TObject);
var
a:tstringlist;
i:integer;
begin
a:= TStringList.Create;
SplitStrings(edit1.Text,’ ‘,a);
for i:=0 to a.Count-1 do
begin
memo1.Lines.Add(a[i]);
end;

end;

</pascal>

semoga bermanfaat

Advertisement