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...
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.
May the force be with you!
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...
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  components count murtishow76 9 222 05-07-2018, Saat: 09:05
Son Yorum: 3ddark
  Listbox 'da isim tutma quiet1day 4 171 11-06-2018, Saat: 16:47
Son Yorum: quiet1day
  Database random Dostk 7 395 07-03-2018, Saat: 12:38
Son Yorum: Dostk
Question listbox hakkında yardım BY-HAYALET 21 823 06-12-2017, Saat: 15:09
Son Yorum: frmman
Question listbox kullanımı hakkında yardım ! BY-HAYALET 6 290 29-11-2017, Saat: 21:27
Son Yorum: BY-HAYALET



Konuyu Okuyanlar: 1 Ziyaretçi