Inhalt eines dynamischen Array in einen String kopieren

[oki]

Hi Leute,

ich entschuldige mich schon mal im Voraus für die Frage. Bei der Suche bin ich wahnsinnig geworden; bekomme alle Threads mit den Stichworten String und Array; einfach zu viel.

Folgende Aufgabe:
Ich habe ein dynamisches Array A : Array of Byte und möchte deren Inhalt in einen String kopieren. Ich stell mich grad zu blöd an. Muss dabei bemerken, dass ich das nicht über eine Schleife sondern mittels move oder Copy mit "einem Ruck" erledigen will.

Mach ich es so:

Delphi-Quellcode:

      SetLength(SData, Length(FReceivedData));
      system.Move(@FReceivedData[0], SData[1], Length(FReceivedData));
      SetLength(FReceivedData, 0);

bekomme ich Fehlermeldungen wie:

Zitat:

[DCC Fehler] USBPort_Classes.pas(357): E2036 Variable erforderlich

Ich hatte eigentlich nicht erwartet, dass ich damit Schwierigkeiten habe, ist aber wohl so.

Ich denke, hier kann mir sicher einer schnell aus meinem Dilemma helfen.

Dank und Gruß oki

[Uwe Raabe]

Lass doch mal das @ weg:
system.Move(FReceivedData[0], SData[1], Length(FReceivedData));

[oki]

Hi,

dann meckert zwar der Compiler nicht mehr, aber in SData steht nur Müll. Auf jeden Fall nicht das, was in FReceivedData steht.

Gruß Oki

[DeddyH]

Und wenn Du das letzte SetLength einmal weglässt?

Delphi-Quellcode:

SetLength(SData, Length(FReceivedData));
system.Move(FReceivedData[0], SData[1], Length(FReceivedData));
//SetLength(FReceivedData, 0);

[Uwe Raabe]

Zitat von oki:

dann meckert zwar der Compiler nicht mehr, aber in SData steht nur Müll. Auf jeden Fall nicht das, was in FReceivedData steht.

Dann gib doch mal folgendes bekannt:

Wie sind FReceivedData und SData deklariert?
Welche Delphi-Version setzt du ein?

[oki]

Hi Leute,

muss grad für 1,5 h weg. Hier noch schnell:

FReceiveData setze ich 0 um die empfangenen Daten zu löschen (hole sie mit Sdata ab). SData ist ein string, den ich mit den Daten als String hochreichen möchte. Manchmal empfange ich nur ASCII.

Gruß oki

[p80286]

Ich hab's mal für mich umgesetzt, so klappt es:

Delphi-Quellcode:

var
  i : integer;
  a1: array of byte;
  s1: string;
begin
  setlength(s1,50);
  setlength(a1,50);
  for i:=0 to 49 do a1[i]:=$20+i;
  move(a1[0],s1[1],50);
  showmessage(s1);

Gruß
K-H

[himitsu]

Wenn FReceivedData ein "Array of Byte" und SData ein "AnsiString" (oder Ähnliches) ist:

Delphi-Quellcode:

SData := AnsiString(Pointer(FReceivedData));
UniqueString(SData);
FReceivedData := nil;

Wobei das mit dem Move eigentlich auch funktionieren sollte

Delphi-Quellcode:

SetLength(SData, Length(FReceivedData));
MoveMemory(@SData[1], @FReceivedData[0], Length(FReceivedData));
FReceivedData := nil;

Bist du ganz sicher, daß "aber in SData steht nur Müll" an diesen Befehlen liegt?

[Medium]

Nur so am Rande: Move ist intern meine ich auch nichts weiter als eine Schleife über Bytes.

[Uwe Raabe]

Zitat von Medium:

Nur so am Rande: Move ist intern meine ich auch nichts weiter als eine Schleife über Bytes.

Richtig, nur daß diese Schleife als ein einzelner OpCode realisiert und damit geringfügig schneller als eine ausprogrammierte Schleife ist.