OnStartup gem. Basis_Modul-ReatMe.txt

15/11/2009 - 19:52 von Birgit Jakob | Report spam
So sah und sieht mein OnStartup aus:

| program OnStartup;
| Uses Forms, Extctrls, TextFile;
| {$I Basis_Modul_Include}
| procedure OnStartup;
|
| begin
| ADo('GetNewHeadersInSubscribedGroups');
| timer1.interval:`000*10;
| timer1.enabled:=true;
| end;
|
| begin
| end.

Gemàß der ReadMe müsste ich noch folgendes einfügen:

| Begin
| If Not BM_PathCheck(GetCurrentDir) Then
| Begin
| Ado('ReloadScripts');
| Ado('Scripting');
| End;


Das ergibt bei mir dann dies hier:

| program OnStartup;
| Uses Forms, Extctrls, TextFile;
| {$I Basis_Modul_Include}
| procedure OnStartup;
| Begin
| If Not BM_PathCheck(GetCurrentDir) Then
| Begin
| Ado('ReloadScripts');
| Ado('Scripting');
| End;
| begin
| ADo('GetNewHeadersInSubscribedGroups');
| timer1.interval:`000*10;
| timer1.enabled:=true;
| end;
|
| begin
| end.

Ich erhalte beim Kompilieren jedoch wieder eine Fehlermeldung. Wo liegt
hier mein Fehler?
Den letzten Intelligenztest müssen die Menschen noch bestehen, nàmlich
sich miteinander zu vertragen. (Heinz Haber)
 

Lesen sie die antworten

#1 Dietmar Vollmeier
15/11/2009 - 19:55 | Warnen spam
Servus Birgit!

*Birgit Jakob* schrieb am 15.11.2009 um 19:52 Uhr...
| program OnStartup;
| Uses Forms, Extctrls, TextFile;
| {$I Basis_Modul_Include}
| procedure OnStartup;
| Begin
| If Not BM_PathCheck(GetCurrentDir) Then
| Begin
| Ado('ReloadScripts');
| Ado('Scripting');
| End;
| begin


| ADo('GetNewHeadersInSubscribedGroups');
| timer1.interval:`000*10;
| timer1.enabled:=true;
| end;
|
| begin
| end.

Ich erhalte beim Kompilieren jedoch wieder eine Fehlermeldung. Wo liegt
hier mein Fehler?



Die markierte Zeile gehört weg.
und tschüss | Die http://grosse-40td-faq.de - hier werden Sie geholfen
Didi |-
| Operative Hektik ersetzt geistige Windstille

Ähnliche fragen