Hallo
Ich habe ein Problem ich habe normalerweise immer 3-tellig Zahlen in dem Programm das ich schrieb. Nur sobald ich eine 2-stellige Zahl einlese, da diese per Random erzeugt werden, dichtet er sich von selbst eine zahl dazu. ich konnte den Fehler schon begrenzen auf folgende Zeilen
Delphi-Quellcode:
function numberdissect(numbers:
array of integer): Tallnumbers;
// Aufsplitten der Nummern array Allnumbers besteht aus 27 stellen 0-26
var
safer: integer;
counter, resultmerker: integer;
onenumber:
array[0..2]
of integer;
// Für eine 3 Stellige zahl die er abspeichern soll
begin
resultmerker := 0;
for counter := low(numbers)
to high(numbers)
do
begin
safer := 2;
while numbers[counter] <> 0
do
begin
ShowMessage ('
Wert ist falsch');
onenumber[safer] := numbers[counter]
mod 10;
numbers[counter] := numbers[counter]
div 10;
dec(safer);
end;
for safer := 0
to 2
do
begin
Result[resultmerker] := onenumber[safer];
// speichern der gesplittenen zahl in einzelne werte von 0-9
inc(resultmerker);
end;
end;
end;
Als Beispiel:
Ich habe die Zahlen 623 + 33 = 656
dann schreibt er in die freie Stelle wo eigentliche ne null stehen sollte eine 6 rein uns dort steht dann bei der Ausgabe folgendes
623+
633 = 656
das kommt aber nicht mit dem Ergebnis ein
also das er die hier Rot makierte Zahl nimmt weiß ich schon