Einzelne Wörter aus String->Help plz

[HellAngel]

hab ne frage... sagen wir:
TheString := 'Wort1 WortNummer2 UndWort3';

jetz will ich aber die einzelnen Wörter bekommen (wobei die Länge der Wörter immer unterschiedlich sind):

Var1 := Wort1 von TheString;
Var2 := WortNummer2 von TheString;
Var3 := UndWort3 von TheString;

wie mach ich das? help plz

[Pseudemys Nelsoni]

ich hätts so gemacht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  var1, var2, var3: string;
begin
  var1 := Copy(TheString, 1, POS(' ', TheString)-1);
  Delete(TheString, 1, Length(var1)+1);
  var2 := Copy(TheString, 1, POS(' ', TheString)-1);
  Delete(TheString, 1, Length(var2)+1);
  var3 := TheString;
  TheString := '';
end;

[Luckie]

Oder such mal hie rim Forum nach "explode".

[HellAngel]

danke
das war genau das was ich gesucht hab silent

[Daniel B]

Hallo,

und ab nach Delphi-Language.
Die Sparte Programmieren allgemein ist nur für andere Sprachen da!

Grüsse, Daniel

[ssach]

hy,

in dieser funktion gibst du deinen string,seperator und nummer des wortes an, und du bekommst dein wort als resutat heraus :

Delphi-Quellcode:

function EXTRACTION (S : string; OP : string; I : integer) : string;
var
COUNTER,X,OPDEP,OPFIN : integer;
begin
   COUNTER := 1;
   X := 0;
   RESULT := '';
   OPDEP := 0;
   OPFIN := 0;
   while (COUNTER <= length(S)) AND (I <> X)  do
      begin
         if (OP = S[COUNTER]) OR (COUNTER = length(S)) then
            begin
               OPDEP := OPFIN;
               OPFIN := COUNTER;
               X := X + 1;
            end;
               if X = I then
                  RESULT := copy(S,OPDEP+1,OPFIN-OPDEP-1);
         COUNTER := COUNTER + 1;
      end;
end;

S ist dein gesamter string, OP dein seperator(in deinem fall dann einfach ein space), und I ist die Stelle deines Wortes!


cu