Hallo alle zusammen,
ich hab ein Problemchen:
ich will mein Code mit hilfe fon Funktionen und Proceduren reduzieren, aber da Erfahrung fehlt bin ich mir bisschen unsicher.
z.B. wenn folgender Aufruf:
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var
Datei,Datum :String;
begin
Button5.Enabled := True;
Button7.Enabled := True;
if RadioButton1.Checked then
begin
a:= 1;
Datei:='';
Datum:='';
Datei := FileCamera1[High(FileCamera1)];
Datei := Dr_a+Datei;
Image5.Picture.LoadFromFile(Datei);
Datum:= TimeFileCamera1[High(TimeFileCamera1)];
Label6.Caption:= Datum;
end;
if RadioButton2.Checked then
begin
b:= 1;
Datei:='';
Datum:='';
Datei := FileCamera2[High(FileCamera2)];
Datei := Dr_b+Datei;
Image5.Picture.LoadFromFile(Datei);
Datum:= TimeFileCamera2[High(TimeFileCamera2)];
Label6.Caption:= Datum;
end;
if RadioButton3.Checked then
begin
c:= 1;
Datei:='';
Datum:='';
Datei := FileCamera3[High(FileCamera3)];
Datei := Dr_c+Datei;
Image5.Picture.LoadFromFile(Datei);
Datum:= TimeFileCamera3[High(TimeFileCamera3)];
Label6.Caption:= Datum;
end;
if RadioButton4.Checked then
begin
d:= 1;
Datei:='';
Datum:='';
Datei := FileCamera4[High(FileCamera4)];
Datei := Dr_d+Datei;
Image5.Picture.LoadFromFile(Datei);
Datum:= TimeFileCamera4[High(TimeFileCamera4)];
Label6.Caption:= Datum;
end;
end;