Hiho,
ich habe folgenden Code:
Delphi-Quellcode:
VAR
mp2, mp3, mp4, ogg, wma :String; // Suchtypen
...
IF (chkb_mp2.Checked = true) then begin
mp2 := 'mp2'
end else begin
mp2 := '';
end;
IF (chkb_mp3.Checked = true) then begin
mp3 := 'mp3'
end else begin
mp3 := '';
end;
IF (chkb_mp4.Checked = true) then begin
mp4 := 'mp4'
end else begin
mp4 := '';
end;
IF (chkb_ogg.Checked = true) then begin
ogg := 'ogg'
end else begin
ogg := '';
end;
IF (chkb_wma.Checked = true) then begin
wma := 'wma'
end else begin
wma := '';
end;
Nun meine Frage, geht das auch irgendwie anders, bzw kürzer und übersichtlicher?