CopyMemory -> Move

jeng · Beiträge: 30

Hallo,

Kann mir vieleicht hier jemand weiterhelfen.

Ich müsste das

Delphi-Quelltext

1:
2:
3:
4:
5:

Var s: String;
begin
s:= Edit1.Text;
CopyMemory(@MyRec[x].ExoName[0].b, PChar(s), Length(s) *SizeOf(Char)); 
...

in sowas

markieren

Delphi-Quelltext

1:	Move(Pchar(s[1]), MyRec[x].ExoName[0].b[0], length(s) * sizeof(char));

umwandeln.

Danke für Hilfe.

Martok · Verfasst: Fr 16.10.15 12:08

Und was ist jetzt die Frage? Der PChar-Cast in der Move-Version ist überflüssig, ansonsten ist das syntaktisch schon richtig (wobei man über sizeof(char) und die unterschiedlichen Kodierungen noch diskutieren könnte).

Warum eigentlich?

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

jeng · Beiträge: 30

Martok hat folgendes geschrieben :

Warum eigentlich?

Die copymemory variante ist ohne #0, und das bekomme ich nicht in der move variante hin.

Edit: Eine Null Terminierung hinter jedem Zeichen muss ich weg bekommen, und copymemory geht nicht in FMX.

Moderiert von Narses: Beitragsformatierung überarbeitet.

Martok · Verfasst: Sa 17.10.15 23:17

Achso, stimmt ja. CopyMemory ist ja aus der WinAPI.

jeng hat folgendes geschrieben :

Edit: Eine Null Terminierung hinter jedem Zeichen muss ich weg bekommen, und copymemory geht nicht in FMX.

Ah, dann hast du ein Delphi mit Strings als Widestrings, richtig?

Da wäre der String dann also vorher in AnsiString umzukopieren. Dann entfällt auch das *sizeof(char) wieder, weil das dann fest 1 wird.

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

Holgerx · Verfasst: So 18.10.15 09:02

Hallo..

Da ich den DatenTyp für MyRec[x].ExoName[0].b nicht kenne, hier ein Beispiel mit Strings:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure MoveStringData(ASource : string; var ATarget : string);
var
  iLength : integer;
begin
  iLength := length(ASource);
  setLength(ATarget,iLength { * SizeOf(Char)});  // Speicher erstellen, da ATarget der gleiche String-Typ wie Source ist, entfällt das SiseOf
  move(ASource[1],ATarget[1],iLength * SizeOf(Char));
end;

Bei Move wird 'ein' Speicherbereich von Source nach target kopiert, dazu muss das Ziel bereits groß (Speicher) genug sein, um die Bytes aus der Quelle aufnehmen zu können!

Dem Move ist es egal ob Ansistring oder Widestring, es kopiert einfach nur zusammenhängende 'Bytes'.

Durch das 'SizeOf(Char)' wird bei AnsiStrings ein Byte pro Zeichen, bei UniCode zwei Bytes pro Zeichen kopiert, somit funktioniert die obrige Funktion unter allen Delphi-Versionen , welche move und string kennen!

Somit muss vor dem kopieren nach 'MyRec[x].ExoName[0].b' dieses b groß genug sein, um den String 's' aufnehmen zu können.

---------

Edit:
OK, es geht nur darum aus einem WideString (2 Bytes je Char) ein AnsiString (ein Byte je Char) zu machen, dann genügt wirklich:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure MoveStringData(ASource : AnsiString; var ATarget : AnsiString);
var
  iLength : integer;
begin
  iLength := length(ASource);
  setLength(ATarget,iLength { * SizeOf(Char)});  // Speicher erstellen, da ATarget der gleiche String-Typ wie Source ist, entfällt das SizeOf
  move(ASource[1],ATarget[1],iLength {* SizeOf(Char)});
end;

var
  tmpStr : AnsiString;
  
begin
  tmpStr := Edit1.Text;
MoveStringData(tmpStr,tagertStr)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme