Registriert seit: 6. Apr 2005
10.109 Beiträge
|
Re: Zeilen mit Stringliste bis zu bestimmten Zeichen auslese
30. Jul 2006, 19:27
Wenn einen der Ehrgeiz packt:
Delphi-Quellcode:
function TForm1.CreateTypLists(fn: TFileName; cStart, sStop: Char): TStrings;
var
i, iStart, iStop: Integer;
s: String;
begin
Result := TStringList.Create;
Result.LoadFromFile(fn);
for i := Pred(Result.Count) downto 0 do
begin
iStart := Pos(cStart, Result[i]);
iStop := Pos(cStop, Result[i]);
if (iStart = 0) or (iStop < iStart)
then Result.Delete(i)
else Result[i] := Copy(Result[i], Succ(iStart), Pred(iStop - iStart));
end;
end;
Freundliche Grüße
marabu
|
|
Zitat
|