Kod: Tümünü seç
function Tfrmpark.kontrol():String;
begin
kayitq.Active:=False;
kayitq.SQL.Text:='Select bolum from park where bolum='+QuotedStr(cbxbolum.Text);
kayitq.Active:=True;
if RecordCount > 0 then begin
ShowMessage('bu bolum doludur');
cbxbolum.SetFocus;Result:=False;exit;
end;
end;
[dcc32 Error] ParkEt.pas(59): E2003 Undeclared identifier: 'RecordCount'
[dcc32 Warning] ParkEt.pas(59): W1023 Comparing signed and unsigned types - widened both operands
[dcc32 Error] ParkEt.pas(61): E2010 Incompatible types: 'string' and 'Boolean'
[dcc32 Fatal Error] ParkUnit.pas(65): F2063 Could not compile used unit 'ParkEt.pas'
Failed[/b][/b]