Delphi-Quellcode:
function TForm1.CreateTypLists(fn: TFileName; anf : char; ende : char) : TStrings;
var
i, ianf, iende : integer;
s : string;
begin
Result := TStringList.Create;
with Result do
begin
LoadFromFile(fn);
for i := 0 to Pred(Count) do
begin
ianf := pos( 'anf' , Strings[i]);
iende := pos( 'ende' , Strings[i]);
s := copy(Strings[i], ianf, iende);
Result.Add(s);
end;
end;
end;
Mich hat der Ehrgeiz gepackt und ich wollte versuchen eine Funktion zu schreiben, die jeweils den Teilstring aus der Datei extrahiert, der bei anf anfängt und bei ende aufhört...
Hm, Problem ist : Es funktioniert nicht, er gibt immer die gesamten Strings aus...
Danke im Vorraus den Helfenden ...