string alana atama yapılamıyor(floating point)

[okan_erkaymaz]

table1.First;
table1.Active:=true;
form16.Table4.First;
if koy.Checked then
begin
table1.EmptyTable;
while not form16.Table4.Eof do
begin
if form16.Table4.FieldByName('koy').AsString=edit1.Text then
begin
table1.Insert;
table1.Fields[0].Value:=form16.table4.Fields[0].Value;
table1.Fields[1].value:=form16.table4.Fields[1].Value;
table1.Fields[2].Value:=form16.table4.Fields[2].Value;
table1.Fields[3].Value:=form16.table4.Fields[3].Value;
table1.Fields[4].Value:=form16.table4.Fields[4].Value;
table1.Fields[5].Value:=form16.table4.Fields[5].Value;
table1.Fields[6].Value:=form16.table4.Fields[6].Value;
table1.Fields[7].Value:=form16.table4.Fields[7].Value;
table1.Fields[8].Value:=form16.table4.Fields[8].Value;
table1.Fields[9].Value:=form16.table4.Fields[9].Value;
table1.Fields[10].Value:=form16.table4.Fields[10].Value;
table1.Post;
end;
table1.Next;
form16.Table4.Next;
end;

form16.DBChart1.Title.Text[0]:=Muhtar.edit1.text+' '+' KOYU MUHTARLIK SEÇİMİ'; form16.Series1.DataSource:=table1;form16.Series1.xValues.ValueSource:='oysayisi';form16.Series1.XLabelsSource:='adisoyadi'; form16.Series1.YValues.ValueSource:='adisoyadi';
end;

yukarıdaki kod mysql 'e bağlanıyor string alanlar arsında atama yaparken not a floating point data gibi bir hata veriyor bu kodu ilk yazdığımda çalışmıştı sonradan çalışmadı sayıgılar

[fahrettin]

alanlarin string oldugundan emin misiniz?
Atamaları

Kod: Tümünü seç

table1.Fields[1].value:=form16.table4.Fields[1].Value;

yerine

Kod: Tümünü seç

table1.Fields[1].AsString:=form16.table4.Fields[1].AsString;

şeklinde deneyin bir de.....

[okan_erkaymaz]

hocam
öylede denedim
hata tam şu string alan içerisindeki veriyi alıyor ve şunu yazıyor
"okan erkaymaz" is not a valid floating point value
bu hatatı veriyor
hiçbir sıkıntı yok gibi duruyor

[calvan]

float tanımlı bir alana string girmeye çalışıyorsun diyor sana. Database deki tanımları kontrol et.

ayrıca hatayı nerde verdiğini de belirtebilir misin. Kaydederken mi, grafik çizdirirken mi?

[mege]

if form16.Table4.FieldByName('koy').AsString=edit1.Text then
begin
table1.Insert;
table1.Fields[0].Value:=form16.table4.Fields[0].Value;
table1.Fields[1].value:=form16.table4.Fields[1].Value;

çok kötü bir değişken ismi verme mantığın var. hatta yok.

ne form ismi ne tablo ismi hiçbirşey anlaşılmıyor. ayrıca alanlarına field sıra numarası iledeğilde herzaman ismiyle kullanmaya bak. yoksa böyle daha çoook problemin çıkar.
birde kodunu code içine al