Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Random(ListBox.Count); çalışmıyor
#1
TListBox içindeki Item ları karıştırmak için şöyle birşey yazdım:

procedure TForm1.MixButtonClick(Sender: TObject);
var
random: Integer;
i: Integer;
randomChosen: String;
begin
 for i:= 1 to (ListBox.Count) do
 begin
   random:= Random(ListBox.Count);   {  Burada hata alıyorum  }
   randomChosen:= ListBox.Items.Strings[random];
   ListBox.Items.Delete(random);
   ListBox.AddItem(randomChosen, nil);
 end;
end;

'Missing Operator or semicolon' hatası alıyorum. Random kullanışımda hata mı var? Bana doğru göründü...

Şimdiden Teşekkürler...
Z7HWzZNFQYYsFui_gNRNO4nQ5jO9_aTWbllb_cmW...w1366-h654
WWW
Cevapla
#2
(27-11-2017, Saat: 18:29)Hashshashin Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlTListBox içindeki Item ları karıştırmak için şöyle birşey yazdım:

procedure TForm1.MixButtonClick(Sender: TObject);
var
random: Integer;
i: Integer;
randomChosen: String;
begin
 for i:= 1 to (ListBox.Count) do
 begin
   random:= Random(ListBox.Count);   {  Burada hata alıyorum  }
   randomChosen:= ListBox.Items.Strings[random];
   ListBox.Items.Delete(random);
   ListBox.AddItem(randomChosen, nil);
 end;
end;

'Missing Operator or semicolon' hatası alıyorum. Random kullanışımda hata mı var? Bana doğru göründü...

Şimdiden Teşekkürler...

Merhabalar,


Değişken tanımlamasında "random" ismini kullandığınız için bir çakışma oluyor. Değişken ismini değiştirdikten sonra denemeyi yapınız.

Örneklendirirsem;

procedure TForm1.Button1Click(Sender: TObject);
var
random1: integer; //Random fonksiyon ismi ile çakıştığı için değiştirilmelidir.
i: Integer;
randomChosen: String;
begin
 for i := 0 to (ListBox1.Count - 1) do
   begin
     random1 := Random(ListBox1.Count);
     randomChosen := ListBox1.Items.Strings[random1];
     ListBox1.Items.Delete(random1);
     ListBox1.AddItem(randomChosen, nil);
   end;
end;


Saygılarımla,
İyi çalışmalar.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#3
(27-11-2017, Saat: 18:37)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlDeğişken tanımlamasında "random" ismini kullandığınız için bir çakışma oluyor. Değişken ismini değiştirdikten sonra denemeyi yapınız.

Haklı çıktınız. Delphi'nin büyük küçük harflere pek hassas olmadığını fark etmiştim ama bu kadarını beklemiyordum  Rolleyes Teşekkürler...
Z7HWzZNFQYYsFui_gNRNO4nQ5jO9_aTWbllb_cmW...w1366-h654
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  components count murtishow76 9 393 05-07-2018, Saat: 09:05
Son Yorum: 3ddark
  Listbox 'da isim tutma quiet1day 4 298 11-06-2018, Saat: 16:47
Son Yorum: quiet1day
  Database random Dostk 7 681 07-03-2018, Saat: 12:38
Son Yorum: Dostk
Question listbox hakkında yardım Mr.Developer 21 1.150 06-12-2017, Saat: 15:09
Son Yorum: frmman
Question listbox kullanımı hakkında yardım ! Mr.Developer 6 464 29-11-2017, Saat: 21:27
Son Yorum: Mr.Developer



Konuyu Okuyanlar: 1 Ziyaretçi