listbox.items.add ta if then

[Jire]

neden olmadı bilmiyorum yardım ederseniz sevinirim

Kod: Tümünü seç

var
i,nar,nat:integer;
begin

for i:=1 to 10 do
begin
Atk7.Items.Add('+'+
               IntToStr(i)+
               ' : '+
               if i=nar then IntToStr(nat));
end;
end;

*nar ve nat sayıları başta belirleniyor.

[Error] Unit1.pas(76): Statement expected, but expression of type 'String' found

[bgoktas]

Kod: Tümünü seç

if i=nar then IntToStr(nat));

bu satırı .add içerisine ekleyemzsiniz, bunu yerine bu şartı dışarıda oluşturup oluşan stringi add ile listbox'a eklersin.

Kod: Tümünü seç

var
i,nar,nat:integer;
str,x:string;
begin

for i:=1 to 10 do
begin
 if i=nar then x:=IntToStr(nat) else x:='';
str:='+'+ IntToStr(i)+ ' : '+x;
Atk7.Items.Add(str);
end;
end;

[Jire]

çok teşekkür ederim çalıştı.