CheckBox, Variablen füllen

[BullsEye]

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?

[mkinzler]

Delphi-Quellcode:

mp2 := ''; mp3 := ''; ...
IF chkb_mp2.Checked then mp2 := 'mp2';
...

[BullsEye]

Ah ok,

DANKE..

und wiedereinmal was dazugelernt^^

[Hawkeye219]

Hallo,

eine andere Möglichkeit wäre die Nutzung der Funktion IfThen:

Delphi-Quellcode:

// uses StrUtils

var
  mp2, mp3, mp4, ogg, wma : string; 
begin
  mp2 := IfThen(chkb_mp2.Checked, 'mp2');
  mp3 := IfThen(chkb_mp3.Checked, 'mp3');
  mp4 := IfThen(chkb_mp4.Checked, 'mp4');
  ogg := IfThen(chkb_ogg.Checked, 'ogg');
  wma := IfThen(chkb_wma.Checked, 'wma');
end;

Gruß Hawkeye

[DeddyH]

Noch eine Möglichkeit:

Delphi-Quellcode:

const smp3: array[Boolean] of string = ('','mp3');
var mp3: string;
begin
  mp3 := smp3[CheckBox1.Checked];
end;