CheckBox, Variablen füllen

[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