For in do Döngüsünde Sorun Yaşıyorum.

[peynir]

Merhabalar. Ben fatih hocanın kitabını aldım. Döngülerde çalışıyordum ama iki ayrı şeyde hata çıktı. Hatanın niye olduğunu anlayamadım. Sorun şu.

procedure button1.onclick
var
isim:string;
hrf:char;
begin
listbox1.items.clear;
isim:= 'feyza pekuysal';
for harf in isim do
listbox1.items.add(harf);
end;

Koyu yazan yerde hata veriyor.

Diğer örnek
procedure button2.oclick
var
ascii:array[33..255] of integer;
i:integer;
begin
listbox2.items.clear;
for i := low(ascii) to high(ascii) do
ascii := i;
for i in ascii do
listbox2.items.add(inttostr(i) + ' -> ' + char(i));
end;

Koyu yazan yerde hata veriyor.

Bir de şu ikinci örneğin nasıl çalıştığını anlatırsanız sevinirim.
Teşekkürler.

[qamyoncu]

Kod: Tümünü seç

for ... in ... do

diye bir kullanım yoktur. Kullanımı For (integer type):=(integer) to (integer) do olaraktır. altındaki kod bloğunu değerler arasındaki fark kadar döndürür.

Örneğin;

Kod: Tümünü seç

var
i: integer;
begin
for i:=0 to 10 do
begin
label1.caption:=inttostr(i);
end;
end;

Sırayla label1e 0,1,2,3,4,5,6,7,8,9,10 yazacaktır.



-İlk yaptığında ne yapmak istediğini anlamadım

-İkincisini ise:

Kod: Tümünü seç

var
i:integer;
begin
for i:=33 to 255 do
begin
listbox2.items.add(inttostr(i)+'--->'+char(i));
end;
end;

[emin_as]

for in diye kullanım vardır. Ama bu özellik delphi 2005 den sonrası için geçerlidir.
Delphi 7 kullanıyorsan, hata vermesi normal.