TstringList Variable einlesen, wort für wort...

[sakura]

Folgende Funktion ist nicht auf Geschwindigkeit optimiert, sollte Dir aber einen Start zur Lösung geben, funktioniert zumindest

Delphi-Quellcode:

procedure LoadFileIntoStrings(aFileName: string; Strings: TStrings);
var
  Ch: Char;
  Word: string;
begin
  with TFileStream.Create(aFileName, fmOpenRead or fmShareDenyNone) do
  try
    Word := '';
    while Position < Size do
    begin
      Read(Ch, 1);
      if AnsiUpperCase(Ch)[1] in ['A'..'Z', '0'..'9', 'Ä', 'Ö', 'Ü', 'ß'] then
      begin
        Word := Word + Ch;
      end else begin
        if Word <> '' then
          Strings.Add(Word);
        Word := '';
      end;
    end;
    if Word <> '' then
      Strings.Add(Word);
  finally
    Free;
  end;
end;

Aufruf mit LoadFileIntoStrings('C:\Temp\EinText.ans', Memo1.Lines); ......