Forum: Object-Pascal / Delphi-Language
Delphi
by flacky,
20. Dez 2006
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.Caption) do
begin
lauf:=lauf.nach;
Forum: Object-Pascal / Delphi-Language
Delphi
by flacky,
20. Dez 2006
Danke,
ist zwar eine einfache Lösung, aber denoch genau das, was ich brauchte :D
danke dir!
Aber das eigentlich Problem besteht leider immer noch. Beim ersten mal Editieren fehlt der Text im RichEdit :(
mfg flacky
ps.: Danke fürs Lob :D
Forum: Object-Pascal / Delphi-Language
Delphi
by flacky,
20. Dez 2006
Danke fuer die schnelle Antwort :D
Joip, das weiß ich schon, nur wir dies dann in der listview als zwei Balken dargestellt.
Gruß flacky
edit:
geht zwar wunderbar, aber auch erst, nachdem einmal schon editieren aufgerufen wurde.
Ich habe mal das Programm im Anhang :D Ist mein erstes Programm. Es geht um ein Lustiges Taschenbuch Archiv, ist für die Schule
Forum: Object-Pascal / Delphi-Language
Delphi
by flacky,
20. Dez 2006
Hi,
ich hab momentan ein kleines Problem mit RIchEdit etc...
also um die ganze Sache mal zu beschreiben :
Ich habe eine doppelt verkettete Liste als Datensatz.
Diese Liste wird dann in einer listview wiedergegeben.
Ich benutze als eines der Eingabefelder ein RichEdit.
Gespeichert wird es dann so :
var
neu : TKnoten; // Neuer Knotenpunkt
i,z:integer; // Zaehler fuer bemerkung...