Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      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...
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...
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Question listbox hakkında yardım BY-HAYALET 21 503 06-12-2017, Saat: 15:09
Son Yorum: frmman
Question listbox kullanımı hakkında yardım ! BY-HAYALET 6 159 29-11-2017, Saat: 21:27
Son Yorum: BY-HAYALET
Question Consol uygulaması ide üzerinde çalışmıyor masteryoda 8 2.349 19-10-2016, Saat: 15:42
Son Yorum: masteryoda



Konuyu Okuyanlar: 1 Ziyaretçi