[es] - Delphi + ADO problem!!!

marcony86
Absolute Freelancer
Kapedunum/Singidunum

Član broj: 12256
Poruke: 225
*.vdial.verat.net

+1 Profil

^{10.01.2004. u 18:51 - pre 247 meseci}

Kada pokusam da izvrsim sledecu proceduru javlja mi gresku: '' is not a valid integer value, iako je svaka vrednost koju treba uneti odgovarajuceg tipa. Gde je problem?

Code:

procedure TForm1.HotSpotImage1HotSpotClick(Sender: TObject;
HotSpot: THotSpot);
begin
DBEdit31.Text := HotSpot.Name;
if RadioButton2.Checked or RadioButton1.Checked or RadioButton3.Checked then begin
TS := TShape.Create(Self);
TS.Shape := stCircle;
TS.Parent := Panel1;
if RadioButton1.Checked then
TS.Brush.Color := clGreen
else if RadioButton2.Checked then
TS.Brush.Color := clYellow
else if RadioButton3.Checked then
TS.Brush.Color := clRed;
TS.Width := 10;
TS.Height := 10;
TS.Left := StrToInt(DBEdit33.Text);
TS.Top := StrToInt(DBEdit34.Text);
TS.Visible := True;
TS.BringToFront;
Timer1.Enabled := True;
ADOTable4.Last;
ADOTable4.Insert;
ADOTable4.FieldByName('brlok').Value := ADOTable4brlok.AsInteger + 1;
if RadioButton1.Checked then
ADOTable4.FieldByName('boja(vrsta)').Value := 'clGreen'
else if RadioButton2.Checked then
ADOTable4.FieldByName('boja(vrsta)').Value := 'clYellow'
else if RadioButton3.Checked then begin
ADOTable4.FieldByName('boja(vrsta)').Value := 'clRed';
ADOTable4.FieldByName('x').Value := StrToInt(DBEdit33.Text);
ADOTable4.FieldByName('y').Value := StrToInt(DBEdit34.Text);
ADOTable4.Post;
end;
end;

Odgovor na temu

-zombie-
Tomica Jovanovic
freelance programmer
ni.ac.yu

Član broj: 4128
Poruke: 3448
195.252.85.*

Sajt: localhost

+5 Profil

Re: Delphi + ADO problem!!!

^{10.01.2004. u 22:20 - pre 247 meseci}

StrToIntDef()

blogče :: unescaped beta^{^» ^{go-paste extenzija} ^» ^{reč dana: backup} ^» ^{bočne koalicije}}

Odgovor na temu

byTer

Član broj: 10936
Poruke: 1221
*.info-net.co.yu

ICQ: 47761626

Profil

Re: Delphi + ADO problem!!!

^{11.01.2004. u 13:39 - pre 247 meseci}

VarToStr() je procedura za konverziju polja iz tabele u string StrToInt() je za konverziju u Integer itd.

Odgovor na temu