Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by coocky,
29. Feb 2008
gut dann werd ich das jetzt mal ein bisschen ausführlicher erklären :-D
also wenn man auf einen Button klickt dann wird in die ListBox3 das Rückgabedatum eingefügt:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox3.Items.Add(FormatDateTime('ddd d. mmm. yyyy', Now+28
end;
wenn das Programm beendet wird, dann wird der Inhalt der ListBox in einer Textdatei eingefügt...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by coocky,
29. Feb 2008
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
alt : TDateTime;
Ueberschritten : Boolean;
if FileExists ('Bücherliste3.txt') // siehe oben
then ListBox3.Items.LoadFromFile('Bücherliste3.txt'); // siehe oben
for i := 0 to ListBox3.Items.Count-1 do begin // überprüfen der ListBox...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by coocky,
29. Feb 2008
Hi,
wir haben ein Bibliotheksprogramm geschrieben, in dem ausgeliehene Bücher gespeichert werden. Wenn das ausgeliehene Datum überschritten ist, dann sollte normalerweise eine message kommen "Ausleihdatum überschritten".
Folgenden Quelltext haben wir bis jetzt:
procedure TForm1.FormCreate(Sender: TObject);
var lIx : integer;
lInt : TDateTime;