Variablen kombinieren

[Spike2k3]

Moin...oder eher N'Abend

Ich hab mal ne Frage...
Also ich hab ne Schleife gemacht und will nun darin die Variablen auch "erhöhen".
Hier ist mal der Quelltext, damit ihr seht wovon ich rede:

Delphi-Quellcode:

procedure BinTonne;
var q,an1,an2,an3,an4,an5,an6,an7,an8,an9,an10,an11,a,b,o,k,i,j,n,r,len:longint;
    s:string;
begin
a:=0;
q:=0;
for b:=1 to 11 do begin
s:=Form1.Memo1.Lines.Strings[a];
a:=+1;
q:=+1; // q für an wird erhöht
len:=length(s);
r:=0;
o:=1;
for i:=len-1 downto 0 do
begin
n:=strtoint(s[o]);
j:=1;
for k:=0 to i-1 do j:=J*2;
r:=r+(n*j);
inc(o);
end;
an+q:=r;       //Hier soll an von an1 bis an11 hochgehen, wie kann ihc das machen??????
end;
Form1.Label6.Caption:=inttostr(an1+ an2+ an3);
end;

Hoffe ihr könnt mir helfen...

[MikeS]

moin

das einfachste wäre doch wenn du an als array definierst!

var an: array[1..11] of longint; der aufruf wäre dann folgender maßen:

Delphi-Quellcode:

for x := 1 to 11 do
  an[x] := r;

Form1.Label6.Caption:=inttostr(an1+ an2+ an3); dieser Aufruf könnte dann folgender maßen aussehen:

Delphi-Quellcode:

for x := 1 to 3 do
  z := z + an[x];
Form1.Label6.Caption:=inttostr(z);

[Spike2k3]

und zur Ausgabe muss das dann so aussehen?
Form1.Label6.Caption:=inttostr(an1+#10+an2+#10+an3); So klappt das nich....

Und so irgendwie auch nich:

Form1.Label6.Caption:=inttostr(an[1]+#10+an[2]+#10+an[3]); Aber danke schonmal

[MikeS]

guck mal im oberen beitrag
hab gerade noch was hinzugefügt!

[Spike2k3]

Dann addiert das Ding ja lle Zahlen....aber was ich brauch ist im PRinzip
11 variable, da ich alle einzeln ansteuern muss.
Die Ausgabe ist jetzt zur Kontrolle, wo ich sozusagen 11 Zahlen im Label stehen haben muss...

[MikeS]

du kannst die doch auch jederzeit einzeln ansprechen

Delphi-Quellcode:

an[1] := 10;
an[2] := 11;

oder

form6.label6.caption := inttostr(an[1] + an[2] + an[3]); oder habe ich etwas falsch verstanden??

[Spike2k3]

WEnn ich die so mit + einbaue, was ich auch schon probiert hab, addiert Delphi die...und es kommen wieder komishc Zahlen raus

[Bobator]

ich glaube er meint:

Code:

Label6.Caption:=inttostr(an[1])+#10+inttostr(an2)+#10+inttostr(an3);

bis Variable 11 ist das aber zu umständlich
besser

Code:

   var dummy : string;
             x : byte;
       begin
         dummy:='';
         for x:=1 to 11 do
           dummy:=dummy+inttostr(an[x])+#10;
         Label6.Caption:=dummy;
       end;

[MikeS]

tut mir leid, aber ich verstehe das problem nicht so richtig!

habe das gerade mal probiert und keine probleme!

[Robert_G]

Nur bei numerischen Ausdrücken bewirkt "+" ein Addieren.
Wie hast du den Array denn deklariert?