Hallo Leute
ich bin newbie und versuche gerade einkleines Prog zu schreiben.
In dem Prog gebe ich eine nachricht ein, und nach dem drücken des button erscheint es in der listbox.
nu soll der timer datum und uhrzeit vergleichen und wenn die mit der aktuellen Zeit gleich sind
soll eine Message mit der Nachricht aus der Listbox erscheinen.
Hier mal der Code:
Delphi-Quellcode:
unit calendar_1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Timer1: TTimer;
ListBox1: TListBox;
Button1: TButton;
MonthCalendar1: TMonthCalendar;
DateTimePicker1: TDateTimePicker;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a :
string;
t, d :
string;
begin
t :=timetostr(datetimepicker1.Time);
d :=datetostr(monthcalendar1.Date);
a:=(edit1.Text);
listbox1.Items.Add(d+'
'+t+'
'+a);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
end;
end.
Ich hoffe es kann mir jemand helfen, weil
Problem 2
wenn ich das Programm beende sind die Termine wech, aber das kommt später.
Gruß
Kurzer
[edit=Admin]Dephi-Tags korrigiert. Mfg, Daniel[/edit]