[TStringlist/string] Position => Zeile

[Hawkeye219]

Hallo Frank,

du könntest es mit dieser Funktion versuchen:

Delphi-Quellcode:

function LineIndexFromCharIndex (
           const aString    : string;
           const aCharIndex : Integer
         ) : Integer;
begin
  with TMemo.CreateParented(HWND(HWND_MESSAGE)) do
    try
      Text := aString;
      Result := SendMessage(Handle, EM_LINEFROMCHAR, aCharIndex, 0);
    finally
      Free;
    end;
end;

Gruß Hawkeye