hatanın nedeninini bulamadım

[didimli]

merhabalar projemde aşağıdaki hatanın nedenini bulamadım acaba neden çalışmıyor yardım edebilirmisiniz teşekkürler

[SimaWB]

QuoteStr değil QuotedStr,
IntoStr değil IntToStr.

[didimli]

teşekkrü ederim ama
onları düzelttim ama hala devam ediyor
complie edemiyor

[Error] Unit4.pas(40): Missing operator or semicolon
[Fatal Error] Unit1.pas(64): Could not compile used unit 'Unit4.pas'

[didimli]

Kod: Tümünü seç

var tc,sifre:string;
var sonuc:integer;
begin
tc:=edit1.text;
sifre:=edit2.text
bag.PersonelADOQ1.Close;
bag.PersonelADOQ1.SQL.Clear;
bag.PersonelADOQ1.SQL.Add('select * from personel where tc='+QuotedStr(tc));
bag.PersonelADOQ1.SQL.Add('and sifre='+QuotedStr(sifre));
bag.PersonelADOQ1.Open;
sonuc:=bag.PersonelADOQ1.RecordCount;
label1.Caption:=IntToStr (sonuc);

[SimaWB]

sifre:=edit2.text
sonunda noktalı virgül yok!

[didimli]

teşekkür ederim bu arada sitenizde çok güzel
şifreli giriş ekranıydı bu

belki birinininin ihtiyacı olur
kodları paylaşalım

Kod: Tümünü seç

procedure Tsifregiris.Button1Click(Sender: TObject);
var tc,sifre:string;
var sonuc:integer;
begin
tc:=edit1.text;
sifre:=edit2.text;
bag.PersonelADOQ1.Close;
bag.PersonelADOQ1.SQL.Clear;
bag.PersonelADOQ1.SQL.Add('select * from personel where tc='+QuotedStr(tc));
bag.PersonelADOQ1.SQL.Add('and sifre='+QuotedStr(sifre));
bag.PersonelADOQ1.Open;
sonuc:=bag.PersonelADOQ1.RecordCount;
label1.Caption:=IntToStr (sonuc);

if (sonuc > 0) then
begin
  girisfrm.showmodal;
end;