Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

Type
TForm1 = Class(TForm)
Function split(s,splitwith:string):Tstringlist;
Procedure FormCreate(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
End;

Var
Form1: TForm1;

Implementation

{$R *.dfm}
Function Tform1.split(s,splitwith:string):Tstringlist;
var TempString:string;
TempList:Tstringlist;
I:integer;
Begin
TempList := TstringList.Create;
TempString := '';
Repeat
I := Pos(splitwith,s);
If i>0 Then
Begin
TempString := copy(s,0,i-1);
TempList.Add(tempString);
S := copy(s,i+1,strlen(pchar(s)));
End;
Until i = 0;
TempList.Add(s);
Split := tempList;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Var s:string;
Lista:Tstringlist;
Begin
//testa split-functionen
//det dåliga med denna function är att man måste skapa en TstringList
//för att den ska funka..=/
//Om ni har en bättre lösning så vill jag gärna veta den,
//gärna där man slipper använda TstringList
Lista := Tstringlist.Create;
S:= 'hej1,hej2,hej3';
Lista := form1.split(s,',');
Showmessage(lista.Strings[0]);
Showmessage(lista.Strings[1]);
Showmessage(lista.Strings[2]);
End;

End.