Memo Nummerierung

[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;