[TStringlist/string] Position => Zeile

[Sereby]

sowas hab ich mir auch mal programmiert:

Delphi-Quellcode:

function TStringsHelper.GetLineByPos(const MyPosition: Integer): Integer;
var
  I,Line: Integer;
begin
  Result := -1;
  if (MyPosition = -1) then Exit;

  Line := 0;
  I := 1;
  while I < MyPosition do
  begin
    if (Text[I] = #13) then Line := Line + 1;
    I := I + 1;
  end;
  Result := Line;
end;

das ganze habe ich bei delphi 2009 in einen classhelper gepackt aber kannst es ja leicht umschreiben, dass es bei einer per parameter übergebenen stringlist sucht