Deling af text

hey, har jeg forstået dig ret vil du splitte en text op i en stringlist, som f.eks. en listbox?

ja
kan du hjælpe mig med det??

2. sec, jeg finder ud af noget ...

ok
kan du ikke lige gøre det nu da jeg skal hjem om lidt og gerne vil leje med det når jeg kommer hjem

OK, Jeg har lige fixet et lille eksempel som jeg fik til at virke.

Du skal bare indsætte 1 Listbox, 1 knap, og et editfelt.

I editfeltet skriver du kommateksten
(du kan selv lige ændre dette hvis du vil have tekststrengen et andet sted fra)

og under OnClick på knappen sætter du følg. kode ind:

procedure TForm1.Button1Click(Sender: TObject);
var
myvar1: string;
begin
myvar1:=edit1.text;
while pos(',',myvar1)>0 do begin
listbox1.items.add(copy(myvar1,0,pos(',',myvar1)-1));
myvar1 := copy(myvar1,pos(',',myvar1)+1,length(myvar1));
if pos(',',myvar1)=0 then
listbox1.items.add(myvar1);
end;
end;

Den fik jeg ihvertifald til at virke :)

ehm.. var det hurtigt nok eller er du smuttet ? :)

Dj jeg takker for svaret!!!!

np, niffer, har du ICQ ?