Ansatz von Priceduren/Functionen

[guidok]

Zitat von Leo675:

Delphi-Quellcode:

    a:= 1;
    Datei:=''; 
    Datum:='';
    Datei := FileCamera1[High(FileCamera1)]; //das kann in die nächste Zeile
    Datei := Dr_a+Datei;
    Image5.Picture.LoadFromFile(Datei);
    Datum:= TimeFileCamera1[High(TimeFileCamera1)];
    Label6.Caption:= Datum;


    //vereinfacht, da du den Inhalt von Datei und Datum anscheinend weiter nicht benötigst:
    Image5.Picture.LoadFromFile(Dr_a + FileCamera1[High(FileCamera1)]);
    Label6.Caption := TimeFileCamera1[High(TimeFileCamera1)];

Zielt zwar nicht genau auf deine Frage, ist aber auch schon eine Vereinfachung.