Einzelnen Beitrag anzeigen

gfjs

Registriert seit: 8. Dez 2005
Ort: Hohenkammer
298 Beiträge
 
Delphi 2006 Professional
 
#1

Warum geht "Memo1.Lines := Memo1.Lines" nicht?

  Alt 26. Aug 2008, 20:10
Hallo, Allerseits.

Warum führt die Zuweisung Memo1.Lines := Meno1.Lines dazu, dass die Strings im Memo verschwunden sind?

Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  str : TStrings;
begin
  ShowMessage(Memo1.Lines[0]);
  Memo1.Lines := Memo1.Lines; ShowMessage('Memo: '+Memo1.Lines[0]);
  str := Memo1.Lines; ShowMessage('str: '+str[0]);
end;
Nur das erste ShowMessage liefert die 1. Zeile des Memos, die beiden nächsten Aufrufe liefern nur noch einen Leerstring.

Auch "ListBox1.Items := ListBox1.Items" funktioniert nicht.

Wer kann mir das erklären?

Gruß Jürgen
Mein neues Motto (von "Unbekannt"):
Gewinnen: Wenn Du kannst - Verlieren: Wenn Du musst - Aufgeben: NIE!
  Mit Zitat antworten Zitat