Delphi Fehler bei Multiplikation mit Variable

[[Low][Rider]]

Hallo,
ich bin noch ein Anfänger was Delphi angeht. Kann mir einer sagen warum

procedure TForm1.Button10Click(Sender: TObject);

var
i: integer;

begin
i := 1;

repeat
operand1*i := ze1;
operand2*i := ze2;
i := i+1;
until ze1 = ze2;
edit3.Text := floattostr (ze1);
end;

nicht funktioniert? Beim debuggen sprint der Compiler zur Stelle nach dem := von

operand1*i := ze1;

und gibt die Fehlermeldung 'Left side cannot be assigned to' aus. Kann damit leider nichts anfangen, ze1 & ze2 sind weiter oben deklariert und sollen Zwischenergebnisse1 & 2 sein. Das ganze soll das kleinste gemeinsame Vielfaches ausgeben. Bitte keine Verbesserungsvorschläge wie man das KGV rausbekommt, da wir uns selber etwas ausdenken sollen und dann suchen wir die beste Lösung raus (Schule)

[Low][Rider]

 

[transdenzentral]

Was willst Du was zuweisen?

operand1*i -> ze1

oder

ze1 -> operand1*i


Falls letzteres:

ze1:=operand1*i;
ze2:=operand2*i;

procedure TForm1.Button10Click(Sender: TObject);

var
i: integer;

begin

i:= 1;

repeat
   ze1:=operand1*i;
   ze2:=operand2*i;
   inc(i);

until ze1 = ze2;

edit3.Text := floattostr (ze1);

end;

 

[badday]

Vorab: Ich habe von Delphi keine Ahnung.

Allerdings sehe ich das so, dass du versuchst operand1*i etwas zuzuweisen, was natürlich nicht geht, da es ein Rvalue ist. Was willst du denn dabei machen? Wenn du ze1 etwas zuweisen willst, musst du es umdrehen.
Allerdings weiß ich nicht, was := bedeutet?

Gruß,

badday

 

[transdenzentral]

@badday

:= heißt in Delphi "erhält zugewiesen".
Die Erklärung hast du ja geliefert

 

[[Low][Rider]]

Oh Entschuldigung, das ist ein dummer Fehler.

Danke für die schnelle Hilfe.

 

[transdenzentral]

Mich würde ja mal der gesamte Quellcode interessieren bzw. wie du das Problem lösen willst - nur wenn du damit einverstanden bist natürlich - von mir aus auch per PM...

Ich hätte das selbst jetzt spontan über die Beziehung KGV und gGT gemacht

KGV(Zahl1, Zahl2) = |Zahl1*Zahl2| / GGT(Zahl1, Zahl2)