Hallo, Ich bins wieder...
Gibt es eine Möglichkeit eine TXT-Datei bei Programmstart einzulesen, ohne das der User auf einen Knopf drücken muss?
Es geht um diesen Code:
Delphi-Quellcode:
if not FileExists('C:\DRPEnc.drpset') then MessageDlg('Sorry! You have first to setup DRPEnc. Click on "Welcome" to set it up.',mtWarning,[mbOK],0);
if FileExists('C:\DRPEnc.drpset') then
begin
form1.ListLoadSettings.Items.LoadFromFile('C:\DRPEnc.drpset');
form1.Edit1.text:=form1.ListLoadSettings.Items[0];
form1.Edit2.text:=form1.ListLoadSettings.Items[1];
form1.Edit3.text:=form1.ListLoadSettings.Items[2];
form1.Edit4.text:=form1.ListLoadSettings.Items[3];
form1.Edit5.text:=form1.ListLoadSettings.Items[4];
form1.Edit6.text:=form1.ListLoadSettings.Items[5];
form1.Edit7.text:=form1.ListLoadSettings.Items[6];
form1.Edit8.text:=form1.ListLoadSettings.Items[7];
form1.Edit9.text:=form1.ListLoadSettings.Items[8];
form1.Edit10.text:=form1.ListLoadSettings.Items[9];
form1.Edit11.text:=form1.ListLoadSettings.Items[10];
end;
end;
Es soll so aussehen: Der User startet mein Programm. Es enthält nun ein TabbedNotebook wobei ich den zweiten Tab 'Source' bei Programmstart anzeige.
Wenn die gewisse Datei existiert sollen der Inhalt geladen werden. Wenn nicht dann die Message. Am besten wärs noch, wenn er dann gleich nach Tab 'Welcome' springt sobald die Message angezeigt wird.
Ich war mehr als eine Stunde im Forum und hab danach gesucht. OnCreate, OnActivate etc. ... Nichts klappt. Oder mach ich einfach was mit der Positionierung des Codes falsch?
http://www.rj-elektronik.de/avideo/i...ENC/drpenc.png