TeddyEngel
Grünschnabel
Hallöchen,
ich soll in diesem Programm über menü-tasten den pfad für die jeweiligen rechner auslesen und wenns geht auch ändern können. Nur habe ich keine Ahnung wie ich das bewerkstellige? Bin absoluter Delhpi-Anfänger also steinigt michi bitte nicht^^
ich soll in diesem Programm über menü-tasten den pfad für die jeweiligen rechner auslesen und wenns geht auch ändern können. Nur habe ich keine Ahnung wie ich das bewerkstellige? Bin absoluter Delhpi-Anfänger also steinigt michi bitte nicht^^
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var
filename:string;
computer1,computer2,computer3:textfile;
computer1a,computer2b,computer3c,sbkcafe:string;
begin
computer1a:='C:\kontostand\sbkcafe.txt';
if FileExists(computer1a)then
begin
{$i-}
AssignFile(computer1,computer1a);
Reset(computer1);
Readln(computer1,sbkcafe);
Form1.Label1.Caption:=sbkcafe;
Readln(computer1,sbkcafe);
Form1.Label2.Caption:=sbkcafe;
Readln(computer1,sbkcafe);
Form1.Label3.Caption:=sbkcafe;
CloseFile(computer1);
{$i+}
Form1.GroupBox1.Color:=clLime
end
else
Form1.GroupBox1.Color:=clRed;
computer2b:='\\sbk2\kontostand\sbkcafe.txt';
if FileExists(computer2b)then
begin
{$i-}
AssignFile(computer2,computer2b);
Reset(computer2);
Readln(computer2,sbkcafe);
Form1.Label4.Caption:=sbkcafe;
Readln(computer2,sbkcafe);
Form1.Label5.Caption:=sbkcafe;
Readln(computer2,sbkcafe);
Form1.Label6.Caption:=sbkcafe;
CloseFile(computer2);
{$i+}
Form1.GroupBox2.Color:=clLime
end
else
Form1.GroupBox2.Color:=clRed;
computer3c:='\\sbk3\kontostand\sbkcafe.txt';
if FileExists(computer3c)then
begin
{$i-}
AssignFile(computer3,computer3c);
Reset(computer3);
Readln(computer3,sbkcafe);
Form1.Label7.Caption:=sbkcafe;
Readln(computer3,sbkcafe);
Form1.Label8.Caption:=sbkcafe;
Readln(computer3,sbkcafe);
Form1.Label9.Caption:=sbkcafe;
CloseFile(computer3);
{$i+}
Form1.GroupBox3.Color:=clLime
end
else
Form1.GroupBox3.Color:=clRed;
end;
procedure TForm1.Edit1Change(Sender: TObject);
var zahl1:integer;
zahl2:real;
begin
zahl1:=2147483648;
zahl2:=zahl1;
if edit1.text<>''then
Timer1.Interval := StrToInt(edit1.text)
else
Timer1.Interval:=1000;
end;
procedure TForm1.Programmbeenden1Click(Sender: TObject);
begin
close;
end;
end.