Hey!
kan i lige smide et hurtigt tip?
Den sidste procedure i mit program ser således ud:
procedure TMain.Button1Click(Sender: TObject);
begin
Memo1.Clear;
ansohm := (code1 + code2) * code3;
anssohm := FloatToStr(ansohm);
ansk := ansohm/1000;
anssk := FloatToStr(ansk);
ansm := ansohm/1000000;
anssm := FloatToStr(ansm);
Memo1.lines.Add(anssohm + ' Ohm '+ code4);
Memo2.Lines.Add(anssk + ' Kohm ' + code4);
Memo3.lines.Add(anssm + ' Mohm ' + code4);
if not radiobutton1.Checked or radiobutton2.Checked then
MessageDlg('Error', mtInformation, [mbOK], 0);
end;
end.Jeg vil gerne have at der fremkommer en dialogbox hvis radiobutton1 eller radiobutton2 ikke er checked. Som det er nu i min kode virker det ikke helt. Den åbner dialogboksen selvom radiobutton2 er checked. Hvordan skal det skrives så or funktionen virker korrekt?
Indlæg senest redigeret d. 04.09.2007 22:06 af Bruger #12402