mEmIsAh STRiNG...

Ada sedikit oleh2 dari ngobrol ma temen nih...

tentang memisah string ,aku cuman meringkas aja dari code temen biar tambah dikit gitu...

gini masalahnya :

-gimana cara memisahkan string yang ada di edit ke dalam list dengan pemisah ';' atau ',' atau '.' tau apa aja lah...



ni source nya....sederhana sekali loh....gak pake acara trim...



unit pisah;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type TForm1 = class(TForm)

ListBox1: TListBox;

Edit1: TEdit;

Button2: TButton;

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var Form1: TForm1;
implementation
{$R *.dfm}

function pilah(t,kode:string):TStringList;

var i:integer;

begin

result:=TStringList.Create();

if copy(t,length(t),1)<>';' then t:=t+';';

repeat i:=pos(kode,t);

result.Add(copy(t,1,i-1));

t:=copy(t,i+1,length(t)-i);

until t='';

end;


procedure TForm1.Button2Click(Sender: TObject);

begin

listbox1.Items.AddStrings(pilah(edit1.Text,';'));end;
end.





ini print screennya :