Petla

0

Jak mozna zrobic cos takiego:
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
for s:='a' to 'z' do
memo1.Lines.Add(s)
end;
no tylko zeby dzialalo bo to mi nie dziala. Z gory dzienks--pozdrawiam PEDROS {hello}
Delphi6

0

sprubu z
var s : char;

pozdro

0

Dziala Dziala Dziala Dziala Dziala Dziala Dziala Dziala {brawo} . Dzieki b0bik :-) --pozdrawiam PEDROS {hello}
Delphi6

0

procedure TForm1.Button1Click(Sender: TObject);
var I : Byte;
begin
for I:=Ord('a') to Ord('z') do
Memo1.Lines.Add(Chr(I))
end;--Pozdrawiam {hello}
Tomasz K.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0