Absätze in RichEdit nicht drucken!!

[marabu]

Dein ganzes Programm umschreiben? Soviel kann das nicht sein. Die Daten kannst du in einer StringList speichern:

Delphi-Quellcode:

type
  TMainForm = class(TForm)
  ...
  private
    slDaten: TStringList;
  ...
  end;

procedure TMainForm.AddLine;
var
  Fields: TStringList;
begin
  Fields := TStringList.Create;
  Fields.Add(Edit1.Text);
  Fields.Add(Edit2.Text);
  Fields.Add(DateToStr(DateTimePicker.Date));
  slDaten.Add(Fields.CommaText);
  Fields.Free;  
  ListView.Items.Count := slDaten.Count;
end;

Initialisiere slDaten in FormCreate() und schmeiß weg in FormDestroy(). Dann setzt du bei deiner ListView OwnerData := TRUE und schreibst etwas Code für OnData():

Delphi-Quellcode:

procedure TMainForm.ListViewData(Sender: TObject; Item: TListItem);
var
  sl: TStringList;
  i: integer;
begin
  sl := TStringList.Create;
  sl.CommaText := slNewsList[Item.Index];
  Item.Caption := Format('%.0n', [1.0 * Succ(Item.Index)]);
  with Item.SubItems do
    for i := 0 to Pred(sl.Count) do 
      Add(sl[i]);
end;

So oder ähnlich. Mach hin.

marabu