Delphi output alphabet-CodePudding

C + + we can get through the 'A' + I ABCDEFG... , but how to implement in Delphi? 'A' representatives in the Delphi string...

CodePudding user response:

 
Var 
I: Integer; 
The begin 
For I:=word to word (' A ') (' Z ') do 
The begin 
ShowMessage (CRH (I)); 
end; 
end;

CodePudding user response:

 var 
I: Integer; 
The begin 
I:=64; 
Repeat 
Inc (I); 
ShowMessage (CRH (I)); 
Until I=90;//I=word (' Z '); 
end;

 var 
Cc: the set of AnsiChar; 
S: ansiChar; 
The begin 
Cc: [='A', 'B', 'C', 'D', 'E', 'F', 'F']. 
For s in cc do 
ShowMessage (s); 
end;

CodePudding user response:

 var 
I: Integer; 
The begin 
I:=64; 
While I & lt; 90 do 
The begin 
Inc (I); 
ShowMessage (CRH (I)); 
end; 
end;

CodePudding user response:

All roads lead to Rome

CodePudding user response:

Var ch: char;
The begin
For ch:='A' to 'Z' do write (ch);
end;
Don't forget to char type and order,

CodePudding user response:

Support: upstairs,

CodePudding user response:

 
Var 
R: Char; 
I: Integer; 
R:='A'; 
For I:=0 to 25 do 
Write (CRH (succ (word (r) + I - 1)));

CodePudding user response:

refer to the eighth floor JJXXJJXX response:

 
Var 
R: Char; 
I: Integer; 
R:='A'; 
For I:=0 to 25 do 
Write (CRH (succ (word (r) + I - 1)));

 
Var 
R: Char; 
I: Integer; 
The begin 
R:='A'; 
For I:=0 to 25 do 
Write (CRH (succ (word (r) + I - 1))); 
End

CodePudding user response:

references 9 f JJXXJJXX response:

Quote: refer to the eighth floor JJXXJJXX response:

 
Var 
R: Char; 
I: Integer; 
R:='A'; 
For I:=0 to 25 do 
Write (CRH (succ (word (r) + I - 1)));

 
Var 
R: Char; 
I: Integer; 
The begin 
R:='A'; 
For I:=0 to 25 do 
Write (CRH (succ (word (r) + I - 1))); 
End

R:='A';
For I:=0 to 25 do
Write (CRH (word (r) + I));

CodePudding user response:

to learn the way a lot of ah,,,

CodePudding user response:

Procedure TForm3. BitBtn1Click (Sender: TObject);
Var
I: Integer;
The begin
SendMessage (Memo1. Handle, EM_SCROLL SB_BOTTOM, 0).
For I:=0 to 25 do
The begin
ShowMessage (Char (65 + I));
end;
end;