Arrays addieren

[M.L.]

Zitat:

(das neuste Delphi kann man 30 Tage kostelos testen,

Rad Studio XE kann man regulär installieren, starten (nicht beenden) und dann mittels Windows Ruhezustand länger nutzen als 30 Tage (da die Zeitabfrage entfällt). Für XE2 legt man sich einen neuen Account im Developernetzwerk von Embracadero an und verwendet dann den neuen Code.

[boxer123]

würde das so gehen wenn ich die arrays addieren will

Delphi-Quellcode:

for i:=1 to 3 do
for j:=i+1 to 4 do
zahl1 := StrToInt(a[i]) + StrToInt(a[j]);
zahl2 := StrToInt(b[i]) + StrToInt(b[j]);
differenz := zahl2 - zahl1;
Edit2.text := IntToStr(differenz);

[Furtbichler]

Hast Du Delphi?

[Bummi]

Zitat:

würde das so gehen wenn ich die arrays addieren will

nein ... recht sinnfrei ....

[Delphi-Laie]

Zitat:

Zitat von boxer123 (Beitrag 1132707)

würde das so gehen wenn ich die arrays addieren will

Deine Beiträge in dieser Diskussion, auch in Hinsicht auf Deine äußerst nachlässige, gegenüber den Lesern m.E. schon respektsarme Orthographie, lassen bei mir Trollverdacht aufkommen. Nicht einmal Deine eigentliche Intention und Motivation, Dein Ziel werden klar.

[DeddyH]

Kleine Denksportaufgabe für den TE:

Delphi-Quellcode:

procedure TFormBla.ButtonWuppdiClick(Sender: TObject);
const
  Chars: array[1..4] of Char = ('1', '2', '3', '4');
var
  Zahl: integer;
begin
  Zahl := StrToInt(Chars[1] + Chars[2] + Chars[3] + Chars[4]);
  ShowMessage(IntToStr(Zahl));
  Zahl := StrToInt(Chars[1]) + StrToInt(Chars[2]) + StrToInt(Chars[3]) + StrToInt(Chars[4]);
  ShowMessage(IntToStr(Zahl));
end;

Preisfrage: woran liegt das, dass die erste Zahl 1234 und die zweite 10 ist?