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!

Delphi-Quellcode:

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;

Delphi-Quellcode:

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?

Delphi-Quellcode:

Form1.Label6.Caption:=inttostr(an1+#10+an2+#10+an3);

So klappt das nich....

Und so irgendwie auch nich:

Delphi-Quellcode:

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

:) Aber danke schonmal :D

[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

Delphi-Quellcode:

form6.label6.caption := inttostr(an[1] + an[2] + an[3]);

oder habe ich etwas falsch verstanden??
:gruebel:

[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?

[Spike2k3]

Viell. hab ich das Problem einfach falsch beschrieben ;)

Also...
Jede Runde soll r ne bestimmte Zahl sein
und jede Runde soll an1-11 die Zahl sein....
Also jede Runde an1-11:=r....
DAnn hab ich nachher für jedes an einen anderen WErt...
Und werte will ich dann abrufen....
Einzeln....

[MikeS]

das stellt doch auch kein problem das oder? :gruebel:

dann erhöhst du an[x] einfach jede runde und weist dieser variablen dann r zu;

Delphi-Quellcode:

x := 0;
repeat
x := x + 1;
{ablauf der runde}
an[x] := r;

until(x = 11);

[Spike2k3]

DOOOOH....
Oh man....ich hatte natürlich nicht X:= !x! +1 genommen sondern nur x:=+1 genommen....
Nu funzt alles DANKE DANKE DANKE DANKE !!!!!!!!!!!!!!!!!
mein Quelltext is zwar jetzt bissl komisch, aber....
Ich kann endlich ne Binärzahl ausm Memo auslesen und dann die LAmpen danach blinken lassen <---müsst ihr nicht verstehn ;)...

DANKE :) :) :)