Halloo,,

wie kann ich in einer Memo an jedem ZeilenAnfang eine zeichen setzen?

markieren

Delphi-Quellcode:

if Memo.Lines.Count > 0 then
  for I := 0 to Pred(Memo.Lines.Count) do
    Memo.Lines[I] := 'A' + Memo.Lines[I];

markieren

Delphi-Quellcode:

Var i:Integer;
begin
  If Memo1:lines.Count>0 Then
    For i:=0 To Memo1.Lines.Count-1 Do
      Memo1.Lines[i]:='Dein Zeichen' + Memo1.Lines[i];
end;

In der Hilfe/hier im Forum sollte es dazu aber mehr als genug Beispiele geben.

Mfg

[Edit]Zu langsam [/Edit]