Ascii Tabelle Ausgabe Problem

[rossinie00]

Hallo,
mit dem folgendem Programm soll via FOR-Schleife erst ein Zeichen ausgegeben werden und dann die zugehörige ASCII-Zahl ausgegeben werden.
Warum macht der das ncihts?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i,i1: integer;
begin
  ListBox1.Items.clear;
  for i := 1 to 255 do
    begin
      i1 := (000 +i + i1);
      ListBox1.Items.add(chr(i1) + ('  ') + IntToStr(i1));
    end;
end;

Er gibt aber immer die maxint am ende aus.
:? :? :? :?

Wo ist mein fehler?
danke
:angle: rossinie00 :angle:

[phXql]

verbessert (korrigiert):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i : integer; 
begin 
  ListBox1.Items.clear; 
  for i := 1 to 255 do 
      ListBox1.Items.add(chr(i) + ('  ') + IntToStr(i)); 
end;

nich getestet ;)

[rossinie00]

geht danke, aber warum gings vorher nicht? :cry:

[phXql]

weil

Delphi-Quellcode:

    begin 
      i1 := (000 +i + i1); <------
      ListBox1.Items.add(chr(i1) + ('  ') + IntToStr(i1));

nich richtig is. du machst i + il... nimm mal das il da weg, dann sollte es gehen...

[CalganX]

Hi,
überleg mal, wie du addierst hast:

Code:

i = 1; il = 0 + 1 + 0 = 1
i = 2; il = 0 + 2 + 1 = 3
.
.
.

Ich denke das ist dein Fehler gewesen. ;)

Chris

[rossinie00]

mh dann müsst das ja steigend sein die zahlenfolge aber sie bleibt konstant.

[fkerber]

Hi!

Vor der Schleife mal noch l1 auf 0 setzen.

Ciao fkerber