Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Zahl: dazugehöriger ASCII-Code


DiedHope - So 09.01.11 16:26
Titel: Zahl: dazugehöriger ASCII-Code
Hallo,

Ich habe da ein Problem mit den schleifen und zwar:

Ich muss für die schule einen Taschenrechner schreiben(soweit so gut) nur dieser muss noch eine Funktion erhalten die mir die ASCII-Codes von 0 bis 255 in einer Listbox ausgibt.

Hier der Quelltext zu dem Button:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
procedure TForm1.BtASCIIClick(Sender: TObject);
var
  i: integer;
  z: integer;
begin
  for z := 0 to 255 do
  for i := 0 to 255 do
    begin
    LxAusgabe.Items.Add(inttostr(Longint(z))+ ' : ' + chr(i));
    end;
end;



Ich führe das Programm aus und Drücke auf den Button. Die ASCII-Codes werden ausgegeben, aber ich so wie ich das möchte. ;)

Es wird 255 mal die zahl 0 angezeigt die den dazugehörigen ASCII-Code von 0- 255 anzeigt.
Diese passiert auch mit der 1,2... bis zur 255.


Im Anhang ist die .Exe-Datei des Taschenrechners.

Freue mich auf Antworten.


Sry, wenn es so einen Thread schon gibt, aber ich habe einen bei google noch hier im Forum mit der SuFu gefunden.

Ps.: ich muss das Programm morgen bis 17 Uhr abgegeben haben.

Moderiert von user profile iconMartok: Delphi-Tags gesetzt


F34r0fTh3D4rk - So 09.01.11 16:34

Das liegt daran, dass du zwei Schleifen verwendest. Wozu überhaupt zwei? Wenn du die äußere Schleife weg lässt und das z in der add Methode durch i ersetzt, sollte es meiner Meinung nach genau das tun, was du möchtest.


elundril - So 09.01.11 16:37

Das ist wegen der doppelschleife. Probier mal sowas:


Delphi-Quelltext
1:
2:
For i:= 0 to 255 do
  Listbox1.items.add(inttostr(i) + ': ' + chr(i));


Lg elundril

//edith sagt: mist, zu langsam. Sorry. Btw: willkommen im delphi-forum. :wave:


DiedHope - So 09.01.11 16:38

Danke hat funktioniert.


kann geclosed werden.


Delete - So 09.01.11 18:46

- Nachträglich durch die Entwickler-Ecke gelöscht -


jaenicke - So 09.01.11 19:31

Dass du sie unter Windows ausgibst, also vermutlich mit Ansi-Zeichensatz...


Delete - So 09.01.11 20:01

- Nachträglich durch die Entwickler-Ecke gelöscht -