array verändern

[AlexanderBrade]

Kann ich dann so vorgehen?

Delphi-Quellcode:

if a=1 then begin swap(B[19], B[24]) and setlength(B, 23);
{etc}

[mkinzler]

Nein

Delphi-Quellcode:

if a=1 then 
begin 
    swap(B[19], B[24]);
    setlength(B, 23);

end;

[AlexanderBrade]

Ich habe es jetzt so geschrieben:

Delphi-Quellcode:

if edit55.Visible = true then
begin
    swap(B[19],B[24]); swap(B[13],B[23]); swap(B[7], B[22]); swap(B[1], B[21]);{hier liegt irgendein Problem}
    setlength(B, 20); end;
if edit56.Visible = true then
begin
{usw}

Es klappt noch nicht ganz!

[mkinzler]

Delphi-Quellcode:

if edit55.Visible  then ...

reicht.

Was meinst du mit Problem?

[DeddyH]

Wieso tauschst Du die Elemente manuell und welches Problem? Ohne Infos kommen wir nicht weiter.

[AlexanderBrade]

In Bezug auf die "problematische" Zeile sagt Delphi ")" erwartet aber "," gefunden!

[DeddyH]

Zeig uns mal die ganze Methode.

[AlexanderBrade]

Delphi-Quellcode:

if edit55.Visible then
begin
    swap(B[19],B[24]); swap(B[13],B[23]); swap(B[7], B[22]); swap(B[1], B[21]);
    setlength(B, 20); end;
if edit56.Visible then
begin
    swap(B[19],B[24]); swap(B[13],B[23]); swap(B[7], B[22]); swap(B[1], B[21]);
    setlength(B, 20);

Mehr ist es nicht! Warum ich das manuell mache, weil ich keine Ahnung habe, wie man es anders anstellen könnte!

[mkinzler]

Ich vertehe auch nicht, was der Code machen soll.

[TonyR]

Zitat:

Zitat von Delphi Hilfe

Syntax: function Swap(X: Integer): Integer;

Beschreibung
In Delphi vertauscht Swap das höherwertige mit dem niederwertigen Byte des mit X angegebenen Wertes. X ist ein Ausdruck des Typs SmallInt oder Word (16 Bit). Die Funktion ist nur aus Gründen der Abwärtskompatibilität vorhanden.

WAS willst du denn überhaupt machen???
Die Funktion macht 100 pro nicht das was du möchtest.