delphide;query1.close query1.sql.clear kodları nsl kısaltılr

[fahriakkor]

merhaba arkadaşlar, bir konu hakkında yardıma ihtiyacım var, veri tabanıından query yardımı ile veri çekip veri ekliyorum. fakat formum query1.close query1.sql.clear.query1.sql.add gbi kodlarla doluyor,bu kodları prosedure yada class ile kalıp haline getirip çağırabilirmiyim,yada daha kısa bir yolu varmıdır, formumda birsürü query var ve bu şekilde dolusuyla kod oluşuyor. acil yardım lütfen

[Battosai]

Kısaltma değilde sadeleştirme denebilir...Örneğin çok sık kullanacağınız bir sorgu kalıbını bir fonksiyon haline getirebilirsiniz...

Kod: Tümünü seç

Function Sorgu(Q:TQuery;SQL:String):integer;
Begin
Q.close;
Q.SQL.Clear;
Q.SQL.Text:=SQL;
Q.Open;
result:=Q.RecordCount;
End;

Bu fonksiyon ile hem sorgu neticesini görebilir hemde geri dönen değer olarak kayıt sayısını alabilirsin....Artık ihtiyaca göre çeşitlendirmek sana kalmış...

[fahriakkor]

öncelikle ilgilendiğiniz için teşekkürler, fakat kodu çalıştıramadım:(,

public kısmına yazdım

function sorgu(q:TQuery;sql:string):integer;
begin
q.close;
q.sql.clear;
q.sql.text:=sql;
q.open;
result:=q.recordcount;

böyle hatalar verdi:(

end expected but 'begin' found
undeclared identifier:'q'
missing operator or semicolon
missing operator or semicolon
missing operator or semicolon
undeclared identifier:'result'

[thelvaci]

Programlamaya yanlış bir noktadan başlamışsınız anlaşılan. Öncelikle, type, uses, implementation bloklarının ne olduğunu; bir sınıf tanımının ne olduğunu bir daha gözden geçirmenizde yarar var sanıyorum ki.