Memo Nummerierung

[Foxi1896]

dann versteh ich jetzt nicht was das " pos(':::',Memo1.Lines[i])>0 " bringt?
Wenn ich es jetzt doch Manuel bei i>Memo1.Lines.count-1 einstellen muss? Und es dann wieder keine Änderungen annimmt? hää

[DeddyH]

Vielleicht ist mein Denkansatz von eben tatsächlich einfacher. Nehmen wir mal an, wir haben einen fixen Teil (Überschrift) und einen variablen Teil (eben Deine Daten). Dann könnte man es doch auch so machen (ungetestetes Beispiel):

Delphi-Quellcode:

procedure TDeinForm.ZeigePseudoDaten;
const
  FIXER_STRING = 'Dies ist die Überschrift' + sLineBreak + 'mit einer zweiten Zeile';
var
  Daten: TStringlist;
  i: integer;
begin
  Daten := TStringlist.Create;
  try
    for i := 1 to 10 do
      Daten.Add(IntToStr(i) + '. Datenzeile');
    Memo1.Lines.Text := FIXER_STRING + Daten.Text;
  finally
    Daten.Free;
  end;
end;