Verständnisfrage: String nach Pointer kopieren

[gmc616]

Hallo Delphianer,

wieder ein mal versuche ich mich an Pointern ...

folgender Code funktioniert im Delphi 2009, aber nicht so richtig:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);

  procedure fktCopy (APointer : Pointer ; AText : string);
  begin
    CopyMemory(APointer,PChar(AText),2*length(AText)+1);

  end;
var
  sStr , sData : WideString;
  pStr : Pointer;
begin
  sData := '123';
  sStr := 'Hallo Welt';
  pStr := PChar(sStr);

  fktCopy (pStr,sData);

  ShowMessage (sStr);

end;

Die Messagebox zeigt mir "123" als Ergebnis an.

Tatsächlich steht aber in  sStr ='123'#0'o Welt' .
Ich möchte aber, dass der Inhalt der Variable sStr durch den Inhalt der Varable sData komplett ersetzt wird, also das quasi in sStr '123' als Inhalt steht.
Wie kann ich in meiner fktCopy-Procedure die Länge des Strings korrekt setzen?

[sirius]

Das geht so nicht. Das wird vor allem spannend, wenn sData länger als sStr ist.

Was willst du denn machen?


PS: Und pass auf: wenn du widestring nimmst, solltest du auch PWideChar nehmen. Und die "2" in der Längenberechnung am besten mit sizeof(WideChar) ersetzen.

[gmc616]

Zitat von sirius:

Das geht so nicht.

Das habe ich gemerkt. Ist für mich auch irgendwie schlüssig.

Zitat von sirius:

Das wird vor allem spannend, wenn sData länger als sStr ist.

Dachte ich auch. Interessanterweise beschwert sich Delphi _nicht_ mit längeren sData. Überschreibt er einfach. Ich hätte zumindest mit einer Schutzverletzung gerechnet, sonst knallst hier bei mir ja auch an allen Ecken und Enden, aber nix^^

Zitat von sirius:

Was willst du denn machen?

Nun ja, im Prinzip genau das.

Ich habe einen Zeiger auf einen String, genauer auf ein StringProperty einer Klasse.
Dazu habe ich einen Editor gebastelt, der den Inhalt der Property ändern soll. Da der Editor den Namen der Property nicht kennt (nicht kennen kann!), gebe ich ihm den Zeiger auf die Property.
Anschließend soll der Editor den Inhalt auf den der Zeiger zeigt ändern. Mehr nicht.

Delphi-Quellcode:

// PseudoCode !!! 

TEditClass = class (TObject)
public
   Property ID : Integer;
end;

TArtikel = Class (TEditClass)
public
   Property Name : WideString
End;

...
var
  MyArtikel : TArtikel;
...
MyArtikel := TArtikel.create;
...

fktCallEditor (MyArtikel,PWideChar (MyArtikel.Name));


procedure TEditor.SetValue (AEdit : TObject ; APointer : Pointer; AText : string);
begin
  if AEdit is TEditClass then
    fktCopy(APointer,AText);
end;

[uligerhardt]

Ich bin mir nicht sicher, ob ich deinen Pseudocode richtig verstanden habe, aber scheinbar hast du einen untypisierten Zeiger, von dem du weißt, das er auf einen String zeigt? Wenn das so ist, caste halt einfach und mach eine normale Zuweisung: PWideString(APointer) := AText;

[gmc616]

Jupp, richtig verstanden.

Jetzt sagt mir der Complier:

Code:

[DCC Fehler] Unit1.pas(117): E2010 Inkompatible Typen: 'PWideString' und 'WideString'

[uligerhardt]

Zitat von gmc616:

Jupp, richtig verstanden.

Jetzt sagt mir der Complier:

Code:

[DCC Fehler] Unit1.pas(117): E2010 Inkompatible Typen: 'PWideString' und 'WideString'

Dann mach noch'n Haken hin: PWideString(APointer)^ := AText;

[gmc616]

Die Idee hatte ich auch.
Jetzt bekomme ich eine EOutOfMemory-Exception mit "Zu wenig Arbeitsspeicher."

Mein Test-Code aktuell:

Delphi-Quellcode:

procedure fktCopy (APointer : Pointer ; AText : WideString);
  begin
   // CopyMemory(APointer,PChar(AText),2*length(AText)+1);
    PWideString(APointer)^  := AText;
  end;
var
  sStr , sData : WideString;
  pStr : Pointer;
begin
  sData := '123';
  sStr := 'Hallo Welt';
  pStr := PWideChar(sStr);

  fktCopy (pStr,sData);

  ShowMessage (sStr);

Ändere ich alle WideString in String und alle PWideChar in PChar, was mir lieber wäre, komme ich eine Schutzverletztung.

Das geht mir nicht in den Kopf

[uligerhardt]

Ändere mal  pStr := PWideChar(sStr); in   pStr := @sStr; ab. Du willst ja nicht casten, sondern die Adresse deiner Variablen übergeben.

[sirius]

Du hast einen Widestring. Der hat eine feste länge im Speicher. Und daran kannst du mit deinen Speicherkopieraktionen nichts ändern. Du müsstest schon die Länge aktiv ändern. Das geht aber nicht mehr, wenn du nicht mehr weißt, auf was dein Zeiger eigentlich zeigt.

Achso und Delphi(Compiler) beschwert sich natürlich nicht bei deinen Kopieraktionen. Der kopiert einfach (wie in ANSI C) aber du musst wissen was du tust.


Edit:

Zitat:

Ändere ich alle WideString in String und alle PWideChar in PChar, was mir lieber wäre, komme ich eine Schutzverletztung.

Du machst try and error ohne nachzudenken. Glaub mir, das wird nix.

[gmc616]

Zitat von sirius:

Du machst try and error ohne nachzudenken. Glaub mir, das wird nix.

Ja, mittlerweile schon.

Zitat von uligerhardt:

Ändere mal  pStr := PWideChar(sStr); in   pStr := @sStr; ab. Du willst ja nicht casten, sondern die Adresse deiner Variablen übergeben.

Das ist die Lösung!

Ich dachte mal gelesen zu haben, das PChar(sStr) und @sStr das gleiche wären, ist es aber offensichtlich nicht.

BonusFrage: Aber PChar(sStr) und @sStr[1] ist das gleiche oder?
Das würde mir meinen Denkfehler erklären ...

Danke euch für die Hilfe