Hilfe bei Richedit und Tstring bzw string

[flacky]

Delphi-Quellcode:

procedure Tmain.sbutton_open_editierenClick(Sender: TObject);
var
  lauf : TKnoten;
begin
  if (Listview.ItemIndex <> -1) then
  begin
    lauf:=anfang;
    while (lauf.Daten.ltb_nummer) <> strtoint(Listview.Items.Item[Listview.ItemIndex].Caption) do
    begin
      lauf:=lauf.nach;
      if (lauf=ende) then
      begin
        showmessage('Kein ordnungsgemäßer Eintrag ausgewählt!');
        exit;
      end;
    end;
    form_editieren.edit_bemerkung.Text := Trim(lauf.Daten.bemerkung);
    form_editieren.edit_nummer.Text := inttostr(lauf.Daten.ltb_nummer);
    form_editieren.edit_titel.Text := lauf.Daten.titel;
    form_editieren.cb_bestand.Checked := lauf.Daten.bestand;
    form_editieren.tbar_bewertung.Position := lauf.Daten.bewertung ;
    form_editieren.showmodal ;
  end;
end;

Leider fehlt die Dokumentierung :/
edit_bemerkung ist das Richedit. Wie du mir forgeschlagen hast, habe ich WantReturns auf false gesetzt und somit ein bisschen vereinfacht