Einem Array A-Z u. a-z u. 0-9 zuweisen!

[Kidix]

Hi,


wie kann ich am einfachsten einem Array A-Z a-z und 0-9 zuweisen!

Kidix

[DGL-luke]

na mit drei for schleifen z.b.

[Kidix]

ja und wie am einfachsten? 0-9 ist klar, aber a-z nicht!

[Matze]

Schau dir mal Chr und Ord an.

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Klatsch und Tratsch" nach "Object-Pascal / Delphi-Language" verschoben.
Ist doch ne Frage zu Delphi ;-)

[malo]

Zitat:

Zitat von DGL-luke

na mit drei for schleifen z.b.

Eine reicht vollkommen aus ;)

[Kidix]

habs jetzt so gemacht, zahlen werden aber nicht richtig angezeigt...

Was mache ich falsch?

Delphi-Quellcode:

var
alpha: array [0..58] of Char;
x: integer;
begin
for x := 0 to 9 do
begin
alpha[x] := char(x);
end;
for x:= 0 to 24 do
begin
   alpha[x + 10] := chr(x+65);
end;
for x:= 0 to 24 do
begin
   alpha[x + 34] := chr(x+97);
end;

Kidix

[malo]

Die Zahlen musst du natürlich Mit IntToStr darstellen. Chr(1) ist beispielsweise ein Steuerzeichen, das man nicht sieht ;)

[DGL-luke]

wieso bitte inttostr????

einfach die ascii-tabelle anschauen(OH!!)

[alcaeus]

Euch ist hoffentlich klar dass man das noch einfacher machen koennte:

Delphi-Quellcode:

var c: Char;
begin
  for c := 'A' to 'Z' do //...
end;

Das erspart euch das dumme chr-Gefummel.
@DGL_Luke:

Delphi-Quellcode:

var i: Integer;
begin
  for i := 0 to 9 do
    alpha[x] := IntToStr(i)[1];
end;

Chr und Ord werden bei solchen Aufgaben gar nicht benoetigt.

Greetz
alcaeus

[Kidix]

ok, hab nun array of char in string geändert...


jetzt hakts aber noch irgendwie an der zuweisung, also an meinen schleifen, denn nicht alle buchstaben und zahlen werden eingetragen...

kennt jemand ne vereinfachte oder kompaktere schleife dafür?

Kidix

[alcaeus]

Zitat:

Zitat von Kidix

ok, hab nun array of char in string geändert...

Brauchst du gar nicht. Warum denn?

Zitat:

Zitat von Kidix

kennt jemand ne vereinfachte oder kompaktere schleife dafür?

Siehe meine Beispiele.

Greetz
alcaeus

[BenBE]

Delphi-Quellcode:

const
    AlphaNum = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
var
    Arr: Array of Char;
begin
    SetLength(Arr, Length(AlphaNum));
    Move(AlphaNum, Arr[0], Length(AlphaNum));
end;

[Stevie]

Hi Kidix,

ich weiß zwar nicht, was du machen willst, aber eventuell könnte dir auch ein Set helfen:

Delphi-Quellcode:

const
  MyChars = ['A'..'Z', 'a'..'z', '0'..'9'];

Das macht zum Beispiel dann Sinn, wenn du überprüfen willst, ob ein Wert in deiner Zeichenmenge enthalten ist.

Delphi-Quellcode:

if c in MyChars then

MfG
Stevie