Boş Kayıt eklemede hata

[ozcank]

arkadaşlar Table1 de hiçbirşey yokken Button1 e bastığım zaman "Invalid Variant type Conversion" hatası alıyorum sebebi ne olabilir acaba?

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject);
Var
KS,K1,K2:Variant;
begin
Table1.Last;
KS := DBEdit17.Text;
K1:=1;
K2:=KS+K1;
DBCheckBox1.ValueChecked:='1';
Button1.Enabled:=False;
Button2.Enabled:=True;
Table1.Append;
Table1SISTAR.Value:=Date;
DBEdit17.SetFocus;
DBEdit17.Text:=K2;
end;

[husonet]

hiç kayıt olmayınca hata veriyorsa table nin countuna bak 0 dan fazla kayıt varsa kodunu icra et hata yı ayıtlamak içinde adım adım çalıştır.

Kolay Gelsin...

[ozkanagiral]

KS değişkeni içine atadığın DBEdit17.Text boş ise işlem yaptırma ilk Begin den sonra veri olup olmadığını denetle yoksa DBEdit17.SetFocus ve uyarı mesajı ile kullanıcıyı yönlendir. Bence boş değer olduğu için geçersiz tip dönüşümü diyor.
İyi Çalışmalar

[mussimsek]

Hocam burda ne yapmaya çalıştın, kodu ben çok çıkaramadım. Bir de Variantlar bir zorunluluk olmadığı müddetçe kullanma. Variant kullanımı hem çok yavaş, hem de sorunlu oluyor. Integer, string ... gibi hangi tipte ise ona göre bir değişken tanımla.

Son bir uyarı daha, atama yaparken DB bileşenlerle çalışma, datasetler ile çalış.

Değişken := DBEdit1.Text; veya DBEdit1.Text := Değişken; yerine

Değişken := Table1.FieldByName('alan').AsString;

gibi çalışman daha güzel olur, hem de daha anlaşılır olur.

Kolay gelsin.