Pezision

[DeddyH]

Einfacher geht das aber direkt über den String. Ich will mal nicht so sein:

Delphi-Quellcode:

var
  Ziffern: array of Byte; //oder auch integer, Byte reicht aber
  i, dummy, Laenge: integer;
begin
  if TryStrToInt(Edit1.Text, dummy) then
    begin
      Laenge := Length(Edit1.Text);
      SetLength(Ziffern, Laenge);
      for i := 1 to Laenge do
        Ziffern[i - 1] := Edit1.Text[i];
    end;

[boxer123]

gehts auch mit copy ? Was ist der nächste schritt Multiplitzieren oder?

[DeddyH]

Zitat von boxer123:

gehts auch mit copy ?

Klar geht das auch mit Copy, dauert nur länger bei gleichem Ergebnis.

Zitat von boxer123:

Was ist der nächste schritt Multiplitzieren oder?

Sieht ganz danach aus.

[boxer123]

Ich versuche gerade diese Befehle zu verstehen, weil wir hatten sie noch nicht in der Schule.
Können wir das lieber nicht mit Copy machen . Ich weiß es ist schwer mit mir ,weil ich will es auch verstehen.

[DeddyH]

Dann halt mit Copy und ohne den Fehler, den ich vorhin gemacht habe.

Delphi-Quellcode:

var
  Ziffern: array of integer;
  i, dummy, Laenge: integer;
begin
  if TryStrToInt(Edit1.Text, dummy) then
    begin
      Laenge := Length(Edit1.Text);
      SetLength(Ziffern, Laenge);
      for i := 1 to Laenge do
        Ziffern[i - 1] := StringToInt(Copy(Edit1.Text, i, 1));
    end;

So sollte es funktionieren.

[boxer123]

JEtzt muss man Multiplitzieren und das tut man so;

Delphi-Quellcode:

for i:= 1 to .. do
for j:= 2 to .. do
ergebnis:=ziffer[i] * ziffer[j]

oder?

[DeddyH]

Eine Schleife genügt doch bei einem eindimensionalen Array.