mirror of
https://github.com/ulfgebhardt/delphi_ampel.git
synced 2025-12-12 23:35:54 +00:00
33 lines
841 B
ObjectPascal
33 lines
841 B
ObjectPascal
program Ampel;
|
|
|
|
uses
|
|
Forms,
|
|
sysutils,
|
|
dialogs,
|
|
Splashu in 'Splashu.pas' {fSplash},
|
|
Optionsu in 'Optionsu.pas' {fOptions},
|
|
Ampelu in 'Ampelu.pas' {fAmpel},
|
|
vars in 'vars.pas',
|
|
functions in 'functions.pas',
|
|
newclasses in 'newclasses.pas';
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
|
|
//Alle Bilder vorhanden?
|
|
if (fileexists(ImgFAGruen)) and (fileexists(ImgFARot)) and (fileexists(ImgStreet)) and (fileexists(ImgAAGruen)) and (fileexists(ImgAAGelb)) and (fileexists(ImgAARot)) then else
|
|
begin
|
|
showmessage('Es sind nicht alle nötigen Bilder vorhanden! -> Programm wird geschlossen!');
|
|
Application.Terminate;
|
|
exit;
|
|
end;
|
|
|
|
Application.CreateForm(TfSplash, fSplash);
|
|
Application.CreateForm(TfOptions, fOptions);
|
|
Application.CreateForm(TfAmpel, fAmpel);
|
|
fSplash.ShowModal;
|
|
{Application.Run;}
|
|
end.
|