für alle Wörter eines strings eine variable erstellen

[axelf98]

Ich würde das so machen:

Delphi-Quellcode:

Text : string  //ist der Ausgangstext
Liste : TstringList // Liste mit Wörtern

// ---- Hilfsfunktion.....

procedure GetWords(TheString, Teiler: String; var Strings: TStringList);

//........ Die Funktion Tut genau das, was hier erwünscht ist!

procedure Tform1.GetWords(TheString, Teiler: String; var Strings: TStringList);
begin
  try
    Strings.Clear;
    while Pos(Separator, TheString)>0 do
    begin
      Strings.Add(Copy(TheString, 1, Pos(Separator, TheString)-1));
      TheString:=Copy(TheString, Pos(Separator, TheString)+Length(Separator),
      Length(TheString));
    end;
    Strings.Add(TheString);
    if ((Strings.Count = 1 ) AND (strings[0]='')) then strings.Clear;
  except
  end;
end;

//................... Weiter unten:


procedure TForm1.ButtonClick(Sender: TObject);
begin

Liste := TStringList.create;  // Aufrufen
Getwords(Text,' ',Liste); 
 
 // Text -> Ausgangstext,  ' ' -> Leerzeichen als Trennung,  Liste->Die Liste
// Jetzt kann man mit  Liste.Add Elemenete hinzufügen
//                     Liste[i] das i te Wort auslesen
//                     Liste.count die anzahl der wörter bekommen

end;