Delphi-Quellcode:
ChartsPath : Array [0..4,0..40] of Shortstring = (
('Charts/EDDG/INFO1.jpg', 'Charts/EDDG/INFO2.jpg', 'Charts/EDDG/GND.jpg', 'Charts/EDDG/SID07.jpg', 'Charts/EDDG/SID25.jpg',
Ist dir schon aufgefallen, dass alle nichtleeren Einträge mit 'Charts/' beginnen?
Ich hätte schon längst die hundertmalige Wiederholung von 'Charts/' gelöscht und
mit einer Hilfsfunktion wieder ergänzt:
Delphi-Quellcode:
function GetChartsPath(a:0..4; b:0..40):string;
begin
Result := ChartsPath[a,b];
if Result <> '' then
Result := 'Charts/' + Result;
end;