Delphi Forum

selamun aleykum arkadaşlar

Html sayfasındaki tıklamış oldugum linkin urlsini alabilirmiyim acaba

çok teşekür ediyorum hocam gösterdiğin ilgi ve alakaiçin. Sizede iyi çalışmalar.

"blablabla" = "baş ağrısı" veya "karın ağrısı" vs.vs. hocam yine hata verdi aynı hata acaba uygulama şeklinde buraya ekliyebilirmisiz ben sorunu bulamadım veya ben ekliyeyim uygulamayı.

anoedi hocam yine yukardaki hatayı veriyor

anoedi hocam vermiş olduğnuz kod ""invalid column name 'blablablabla' ""diye bir hata veriyor

Lord_Ares kardeşim denedim yine aynı hatayı veriyor demin yukarda yazmış oldugum kod çalıştırdı ama sadece 6 satır çalıştırıyor

Lord_ares Kardeş Demin şöyle bir çözüm buldum bunun daha kısa yolunu üretebilirmiyim

procedure TForm1.Button3Click(Sender: TObject);
begin
if ListBox2.Items.Count =0 then
begin
ShowMessage('Listeye Bir Bulgu Ekleyin');
end;
if ListBox2.Items.Count = 1 then
begin
ADOQuery3.Active := False ...

Şöyle bir Çözüm buldum belki birilerinin işine yarar diye yazıyorum

var
i,count:integer;
thisstring,laststring:string;
begin

listbox3.Clear;
ListBox1.Sorted := true;

count := 1;

lastString := '';

for i:=0 to ListBox1.Items.Count-1 do begin
thisString := ListBox1.Items[i];

if thisString ...

selamun aleykum arkadaşlar bir sorunum var yardımcı olabilirmisiniz.

procedure TForm1.Button3Click(Sender: TObject);
begin
with ADOQuery3 do
begin
close;
sql.Clear;
sql.Text:='select * from tbl_sonuc where bulgu_adi like :a or bulgu_adi like :b';
Parameters.ParamByName('a').Value:=Listbox2 ...

ali hocam listboxtaki çift kayt olan satırları başka bir listboxta göstermek istiyordum

var
liste:TstringList;
i:integer;
begin
liste:=tstringlist.create;

for i:=0 to listbox1.items.count-1 do
begin
if liste.indexof(listbox1.items[i])<0 then
liste.add(listbox1.items[i]);
end;
liste.Sort ...

) çok sağolasın hocam şurda hata verdi

for I := 0 to I < B do //listbxu dolaş

int b=listbox1.Items.count; //listboxın eleman sayısını degıskene yazdır
for(int i=0;i<b;i++) //listbxu dolaş
{
textBox1.Text=i.toString(); //ilk eleman texte yazdır.
if(listBox1.GetSelected(textBox1.Text) == true) //seçilen ilk elemanı listede tarat
{
listBox2.Items.Add(i); //listede varsa 2 ...

Aynı isimler olsunda bekar veya evli fark etmiyor hocam sadece programı hazırlamaya çalışırken geçici bir db hazırlamaya çalıştım işin gerçeği hazırlamayı dusundugum db şu şekilde olacak

b_id -----------Bulgu_adi-----
1---------------baş ağrısı-----
2---------------baş dönmesi---
3 ...

hocam sizin kodu çalıştırdıgımda
http://n1311.hizliresim.com/1h/q/us4sn.jpg

şeklinde oluyor

arama yaptıgım kod

with ADOQuery3 do
begin
close; //Listbox3.items[listbox3.itemindex]
sql.Clear;
sql.Text:='select * from tbl_sonuc where ozellik_adi like ''gezmeyisever'' or ozellik_adi like ...

//*[@id="RadDock1_C_txtKullaniciAdi_wrapper"]
//*[@id="RadDock1_C_txtSifre_wrapper"]
//*[@id="RadDock1_C_captchaLogin_CaptchaImage"]
//*[@id="RadDock1_C_btnGiris"]