Fehlerbehandlung

TeddyEngel

Grünschnabel
Hallöchen zusammen :)

ich habe da ein Problem in folgender Prozedur:

procedure TForm1.Button1Click(Sender: TObject);
var f:Textfile;
g:Textfile;
h:Textfile;
sbkcafe:String;
begin

AssignFile(f,'C:\kontostand\sbkcafe.txt')
Reset(f);
Readln(f,sbkcafe);
Form1.Label1.Caption:=sbkcafe;
Readln(f,sbkcafe);
Form1.Label2.Caption:=sbkcafe;
Readln(f,sbkcafe);
Form1.Label3.Caption:=sbkcafe;
CloseFile(f);
Form1.GroupBox1.Color:=clLime;


AssignFile(g,'\\sbk2\kontostand\sbkcafe.txt');
Reset(g);
Readln(g,sbkcafe);
Form1.Label4.Caption:=sbkcafe;
Readln(g,sbkcafe);
Form1.Label5.Caption:=sbkcafe;
Readln(g,sbkcafe);
Form1.Label6.Caption:=sbkcafe;
CloseFile(g);
Form1.GroupBox2.Color:=clLime;

AssignFile(h,'\\sbk3\kontostand\sbkcafe.txt');
Reset(h);
Readln(h,sbkcafe);
Form1.Label7.Caption:=sbkcafe;
Readln(h,sbkcafe);
Form1.Label8.Caption:=sbkcafe;
Readln(h,sbkcafe);
Form1.Label9.Caption:=sbkcafe;
CloseFile(h);
Form1.GroupBox3.Color:=clLime;


end;

end.

ich soll in diese Prozedur eine Schleife einbauen, glaub es ist eine Schleife bin ein Anfänger höchsten Grades^^

Also es soll so sein, dass jedes Mal wenn ich auf den Button1 klicke er schaut ob die Datein verfügbar sind oder nicht. Wenn sie verfügbar sind soll er die zugehörige Groupbox grün färben und wenn sie nicht verfügbar ist rot färben. Hab schon viel probiert aber kam nicht wirklich zu einem Ergebnis.

Hoffe ihr könnt mir helfen.
 
An was für eine Schleife denkst du denn da? Wegen "Jedes Mal, wenn der Button gedrückt wid..."? Dabei wird ja auch jedes Mal deine Prozedur aufgerufen, dazu brauchst du also keine Schleife...

Meinst du vielleicht eine Selektion? Das wäre quasi ein "Wenn die Datei existiert, male grün"...
 
Zurück