arkadaşlar
ekdeki kod delhi7 de çalışıyordu ama lazarus(typhon64) da çalışmıyor her seferinde ilk aldığı bilğiyi dönderiyor
ID 1 deki bilğiyi sorun ne olabilir acaba
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
OyuncuAdlari:Array[1..10]of String;
begin
//önce oyuncu adlarını alalım
for i:=1 to 10 do
begin
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('select * from TBL_OYUNLARGECICI where ID='+IntToStr(i));
SQLQuery1.Open;
if SQLQuery1.fieldbyname('NAME').value<>Null then
begin
OyuncuAdlari[i]:=SQLQuery1.fieldbyname('NAME').value;
ListBox1.Items.Add(OyuncuAdlari[i]);
end;
end;
//ShowMessage('Kaydedildi');
end;
yukardaki deneme programında sorunu çözdüm asıl programda uyguladığımda resimdeki hatayı alıyorum
tabloda hücrfenin null olduğuna bakmak istiyorum ama hata veriyor yanlış olan ne acaba
for i:=1 to 10 do
begin
DMvtLANE.SQLQuery1.Close;
DMvtLANE.SQLQuery1.SQL.Clear;
DMvtLANE.SQLQuery1.SQL.Add('select * from TBL_OYUNLARGECICI where ID='+IntToStr(i));
DMvtLANE.SQLQuery1.Open;
//gln:=DMvtLANE.SQLQuery1.fieldbyname('NAME').value;
if DMvtLANE.SQLQuery1.fieldbyname('BID').value<>null then
begin
TEdit(frmL1.FindComponent('FrameDuz'+IntToStr(i)).FindComponent('oyuncuAd')).Text:=DMvtLANE.SQLQuery1.fieldbyname('NAME').AsString;
if TEdit(frmL1.FindComponent('FrameDuz'+IntToStr(i)).FindComponent('oyuncuAd')).Text='TEST' then TButton(frmL1.FindComponent('FrameDuz'+IntToStr(i)).FindComponent('btnPark')).Visible:=false; //oyun test oyunu ise park yapamasın
frmL1.dFyt[i]:=StrToInt(DMvtLANE.SQLQuery1.fieldbyname('FYT').AsString); //integer
frmL1.dBID[i]:=DMvtLANE.SQLQuery1.fieldbyname('BID').AsString;
frmL1.oSay[i]:=DMvtLANE.SQLQuery1.fieldbyname('OSAY').AsString; //ektra oyun varsa alalım
_HangiFrmOyVar1[i]:=1;
end;
end;