ďťż

Ładny brzuch

Witam. Dopisuję do pliku dane ale mam problem. Bo ta ostatnia jest zależna od zaznaczenia CheckBoxa i nie wiem jak to zrobic.
Kombinowałem tak: ale nie wychodzi za bardzo xD
Dopisz('ID: '+nokiaid.Text+if CheckBox2.Checked then 'TAK');


A nie możesz zrobić tak:

if CheckBox2.Checked=true then Dopisz('ID: '+nokiaid.Text+'TAK') else Dopisz('ID: '+nokiaid.Text+'NIE');

var cb: boolean; s: string; begin cb := CheckBox.Checked; if cb then s := 'TAK' else s := 'NIE'; Dopisz('ID: '+nokiaid.text+s);
//spóźniłem się :P
Użytkownik JaCkObS edytował ten post 18 maj 2007, 15:55
ah mój błąd. Zapomniałem wam napisać ze tam sie dodają 3 checkboxy :) i powyższe metody musiały wy występować pare razy.

//drugie nie dopatrzenie. Druga metoda chyba ujdzie.
Użytkownik DJ Mentos edytował ten post 18 maj 2007, 15:59

Zamiast tworzyć kilka takich samych warunków można użyć pętli (niech CheckBox'y nazywają się kolejno cb1, cb2... itd)
const cArray: array[0..1] of string[3] = ('NIE','TAK'); var i: byte; begin for i := 1 to 3 do Dopisz('ID ' + nokiaid.text + cArray[Ord(TCheckBox(FindComponent('cb' + IntToStr(i))).Checked)]);
Przy zaledwie 3 warunkach nie ma może większej różnicy, ale gdyby było więcej...
Użytkownik p1101 edytował ten post 19 maj 2007, 10:46
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •