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);
...
...