•  
Создано: 01.08.2010 20:30:57 · Исправлено: 01.08.2010 20:30:57 · Прочтений: 1571

procedure Explode(var a: array of string; Border, S: string);
 var
    S2: string;
   i: Integer;
 begin
   i  := 0;
   S2 := S + Border;
   repeat
     a[i] := Copy(S2, 0,Pos(Border, S2) - 1);
     Delete(S2, 1,Length(a[i] + Border));
     Inc(i);
   until S2 = '';
 end;

 // How to use it: 
// Und hier ein Beispiel zur Verwendung: 

procedure TForm1.Button1Click(Sender: TObject);
 var
    S: string;
   A: array of String;
 begin
   S := 'Ein Text durch Leerzeichen getrennt';
   SetLength(A, 10);
   Explode(A, ' ', S);
   ShowMessage(A[0] + ' ' + A[1] + ' ' + A[2] + ' ' + A[3] + ' ' + A[4]);
 end;