Ausleihe verlängern

coocky · Beiträge: 17

Hallo,
wir haben ein Bibliotheks-Programm entworfen. Nun werden in einer ListBox immer die Rückgabedaten angezeigt und wir wollen, dass Rückgabedatum verlängern, indem man das gewünschte Datum markiert und dann auf einen Button klickt. Dadurch soll dann das Datum durch das neue Datum ersetzt werden. Dazu haben wir auch schon einen Quelltext entworfen, allerdings wird dort das neue Datum unten an die Liste angefügt anstatt das markierte zu ersetzen. Habt ihr eine Idee?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button7Click(Sender: TObject);
var n4 : integer;
begin
 n4:=ListBox3.ItemIndex;
 n4:=ListBox3.Items.Add(FormatDateTime('ddd d. mmm. yyyy', Now+28));
 ListBox3.ItemIndex:=n4;

zuma · Verfasst: Fr 22.02.08 10:38

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button7Click(Sender: TObject);
var n4 : integer;
begin
 n4:=ListBox3.ItemIndex;
 n4:=ListBox3.Items.Add(FormatDateTime('ddd d. mmm. yyyy', Now+28));
 ListBox3.ItemIndex:=n4;

Add fügt immer hinzu ...
ihr müsste den String an der gewünschten Stelle in der Listbox ändern

markieren

Delphi-Quelltext

1:	Listbox3.items.strings[n4] := FormatDateTime('ddd d. mmm. yyyy', Now+28)

natürlich muss n4 auch die gewünschte Position in der Stringlist der Listbox sein

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme