Problem:Checkbox & Radiobutton

[quendolineDD]

Um mal noch deinen Fehler zu dokumentieren. Du hast zwar bei der Checkbox eine Abfrage, ob angezeigt werden soll oder nicht, aber bei der Radiogroup wird ungeachtet der Checkbox das jeweilige Datumsvormat angezeigt.

Überweise doch einfach den ItemIndex an die Procedur bzw. mach eine Funktion draus.

Delphi-Quellcode:

function setPanelDate(index: integer):string;
const
DateForm: array[boolean] of string = ('dd.mm.yyyy', 'mm.dd.yyyy');
begin
result:= nil;
result:= 'Datum:   '+FormatDateTime(DateForm[index], now);  
end;

Aufrufen kannst du das dann mit:

Delphi-Quellcode:

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
if not CheckBox1.Checked then
   Form3.Statusbar1.Panels[4].Text:= ''
else
   Form3.Statusbar1.Panels[4].Text:= setPanelDate(RadioButton2.Checked);
end;

Beides ungetestet!

Angenehme Nacht noch

//Edit:
Hatte Radiobutton1.Checked erst stehen, was aber falsch ist, da doch hier ein Boolean zurückgeliefert wird, welcher bei false = 0 ist und bei true = 1 ... und die beiden Datenformate in der Konstante sind intern in Delphi auch mit 0 und 1 indexiert.