Forum: Programmieren allgemein
by Gehstock,
3. Aug 2006
Damit rechnet er aber nicht mehr das panel Result bleibt leer
fehler erzeugt er aber keine
Forum: Programmieren allgemein
by Gehstock,
3. Aug 2006
procedure TForm2.btn_executeClick(Sender: TObject);
var
wert : string;
wiederstand : string;
//tolerance: string;
prozent: string;
begin
if rb_4rings.Checked then begin
wert := floattostr(((cb_ring1.ItemIndex+1)*10) + cb_ring2.ItemIndex);
Forum: Programmieren allgemein
by Gehstock,
3. Aug 2006
Hab ja schon viel geschafft auch wenn der code mit sicherheit noch besser zu lösen ist
procedure TForm2.btn_executeClick(Sender: TObject);
var
wert : string;
wiederstand : string;
tolerance: string;
prozent: string;
Forum: Programmieren allgemein
by Gehstock,
3. Aug 2006
tolerance := pnl_result.caption/100*(strtofloat(prozent));
tolerance is ne variable
prozent is ne variable
pnl_result.caption ist das ergebnis einer anderen rechnung
muss mich echt mal damit beschäftigen was genau strtofloat und floattostr