Delphi Forum

arkadaşlar daha evvel derleyip çalıştırdığım kod şimdi "List index out of bounds (0)" hatası veriyor bu ne anlama geliyor

sorunu Fahrettin beyin anlattığı şekilde hallettim..
bu dostları zor bulacağımı anladım:)
hepinize şukranlarımı sunarım.
hayatınıza ait 3 dakikayı bana ayırdığınız için de teşekkür ederim

kafam karıştı

lanet olsun ya uğraşmayacağım..
sağolun teşekkürler

exit eventında da ve buttonun click eventında da aynı sorun oluştu..
üzerinde uğraşıyorum ama hala sonuş yok

Dediğinizi yaptım, bir yerde vardı o hata ama bu kez
Invalid Use of keyword
Token=2
Order
Line Number:3
hatası verdi

fahrettin bey şu an sizin gönderdiğiniz kodu derliyorum ve son hali bu

procedure TForm3.Edit1Change(Sender: TObject);
var EKLENECEK_SQL : string;
begin
with Query1 do
begin
Query1.SQL.Clear;
//DatabaseName:='ev';
EKLENECEK_SQL:='';
if not (Edit1.Text='') then
EKLENECEK_SQL:=EKLENECEK_SQL+' and ...

procedure TForm1.Edit1Change(Sender: TObject);
begin
Q.Close;
Q.Params[0].AsString:='%'+Edit1.Text+'%';
Q.Params[1].AsString:='%'+Edit2.Text+'%';
Q.Params[2].AsString:='%'+Edit3.Text+'%';
Q.Open;
end;

end.

Selamlar.
yukarıdaki koda ;

Q.Params[3].AsString:='%'+Edit4.Text ...