Hallo,
werfe mal folgendes in die nette Unterhaltung
:
In Lines[x] ist der Zeilenumbruch nicht enthalten, den kann man aber aus Memo.Text auslesen.
Feststellen bei welchem Zeichen die nächste Zeile anfängt, dann aus .Text die Zeichen davor prüfen.
Delphi-Quellcode:
function IsWordWrap(M: TMemo;iLine: Integer): Boolean;
var i : Integer;
begin
Result := False;
i := M.Perform(EM_LINEINDEX, iLine+1, 0);
if ord(M.Text[i-1]) <> 13 then
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsWordWrap(Memo1,0) then//erste Zeile
showmessage('Umbruch in Zeile 1 (Index 0) durch WordWrap');
end;