TXT Datei bei Programmstart einlesen...

[DRPEnc]

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? :gruebel:

http://www.rj-elektronik.de/avideo/i...ENC/drpenc.png

[fkerber]

Hi!

Führe einfach den Code zum Laden der Datei im OnCreate-Ereignis deines Forms aus. Das müsste gehen

Ciao fkerber

[DRPEnc]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, TabNotBk, ShellAPI;

type
  TForm1 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    Label1: TLabel;
   ...
    //OnCreate
    procedure OnCreate(Sender: TObject);
    //
    procedure Button1Click(Sender: TObject);
   ...
        private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnCreate(Sender: TObject);
//LoadDRPEncSettings
begin
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];
if form1.CheckBox14.Checked then form1.edit14.enabled:=true;
end;
end;

//Welcome Screen - Setup DRPEnc

//mencoder
procedure TForm1.Button1Click(Sender: TObject);
begin

...
end;

end.

Passiert leider nichts... :wall:

[Die Muhkuh]

mach mal ein Doppelklick auf die Form. Das OnCreate meint er.

[Sharky]

Hai DRPEnc,

wenn Du deinen Code von oben in das OnActivate Ereigniss deiner Form packst sollte es ja eigentlich gehen.

[DRPEnc]

Habs gefunden ...

Wie kann ich das Programm dazubringen bei der Message auf den 'Welcome' Tab zu springen?

Irgendwie mit onTabChange oder so.

[fkerber]

HI!

Gibt es da nicht ne Eigenschaft für die aktive Seite?


Ciao fkerber

[Sharky]

Zitat:

Zitat von DRPEnc

...Wie kann ich das Programm dazubringen bei der Message auf den 'Welcome' Tab zu springen?..

Delphi-Quellcode:

if not FileExists('C:\DRPEnc.drpset') then 
  begin
    MessageDlg('Sorry! You have first to setup DRPEnc. Click on "Welcome" to set it up.',mtWarning,[mbOK],0);
    PageControl1.ActivePageIndex := 0;
  end;

[fkerber]

Hi!

Ich glaube, er verwendet ja das TabbedNotebook. Dort müsste es so gehen:

Delphi-Quellcode:

tabbednotebook1.ActivePage:='Welcome';

Ciao fkerber

[DRPEnc]

Würde ich gerne aber:

[Error] Unit1.pas(372): Undeclared identifier: 'PageControl1'

habe ein TabbedNotebook und kein Pagecontrol1...

THX ... fkerber

Läuft! Und ich bin wieder schlauer...