Zum Code in Beitrag #29:
Mit einer halbwegs ordentlichen Codeformatierung wären alleine schon die total falschen Begin-End-Verschachtelungen aufgefallen.
wie heißt der befehl der eine 4stellige zahl zerhackt
Es gibt nach meiner Kenntnis keinen. Du kannst das aber schnell selbst durch Division erledigen.
[edit] OK, ich will mal nicht so sein:
Delphi-Quellcode:
type
TZiffern = array[1..4] of Byte;
function Zerlege(Wert: integer): TZiffern;
begin
Result[1] := Wert mod 10000 div 1000;
Result[2] := Wert mod 1000 div 100;
Result[3] := Wert mod 100 div 10;
Result[4] := Wert mod 10;
end;
Bevor jetzt aber Fragen kommen, schau in die Hilfe zu MOD und DIV und vollziehe den Code nach. [/edit]
Wobei es andersrum einfacher/übersichtlicher gewesen wäre.
Delphi-Quellcode:
function Zerlege(Wert: integer): TZiffern;
begin
Result[1] := Wert div 1000 mod 10;
Result[2] := Wert div 100 mod 10;
Result[3] := Wert div 10 mod 10;
Result[4] := Wert {div 1} mod 10;
end;
DIV um sich die Dezimalstelle rauszusuchen und das MOD um die eine Stelle rauszufiltern.
Für die Umkehrung kann man das MOD weglassen, muß nur noch das DIV invertieren und alles zusammenaddieren.
Zitat:
Gewiss habt ihr vom Lehrer auch eine
IDE gekriegt, irgend ein alten Scheiß wie Delphi 5 bis 7, oder?
Damit hätte man ja mal ein bisschen üben, nachvollziehen und verstehen können.
Sich die neuste Trial (Testversion) vom Delphi zu laden oder Lazarus und selbst das alte Turbo Pascal gibt es kostenlos von Emba zum Download ... zum Üben gäbe es genug Möglichkeiten.
Und nein, das war jetzt keine Antwort für boxer123 ... aber vielleicht gibt es ja doch noch ein paar Lernwillige, denen ein paar Tipps helfen könnten.