Ansatz von Priceduren/Functionen

[nahpets]

Hallo,

meinst Du sowas?

Delphi-Quellcode:

procedure TForm1.LoadImage(Dr : String;
                           FileCamera : T????;
                           TimeFileCamera : T???
                           );
begin
  Image5.Picture.LoadFromFile(Dr + FileCamera[High(FileCamera)];
  Label6.Caption := TimeFileCamera[High(TimeFileCamera)];
end;

procedure TForm1.Button8Click(Sender: TObject);
var
  Datei,Datum :String;
begin
  Button5.Enabled := True;
  Button7.Enabled := True;
  if RadioButton1.Checked then
  begin
    a:= 1; // wofür wird das gebraucht?
    LoadImage(Dr_a,FileCamera1,TimeFileCamera1); // wo kommt Dr_a her?
  end;
  if RadioButton2.Checked then
  begin
    b:= 1; // wofür wird das gebraucht?
    LoadImage(Dr_b,FileCamera2,TimeFileCamera2); // wo kommt Dr_b her?
  end;
  if RadioButton3.Checked then
  begin
    c:= 1; // wofür wird das gebraucht?
    LoadImage(Dr_c,FileCamera3,TimeFileCamera3); // wo kommt Dr_c her?
  end;
  if RadioButton4.Checked then
  begin
    d:= 1; // wofür wird das gebraucht?
    LoadImage(Dr_d,FileCamera4,TimeFileCamera4); // wo kommt Dr_d her?
  end;
end;