pChar nach string konvertieren ?

[Andy386]

Also, ich hab ein bissl gegoogelt, ein bissl Forumsuche gemacht, aber nix gefunden.
Alles dreht sich immer darum, einen string zu einem pchar zu machen. Die verschiedenen Methoden kenne ich jetzt.
Aber wie geht es anders herum ?
Hier ein paar verzweifelte Versuche:

Delphi-Quellcode:

var pstr: pchar;
    sstr: shortstring;
    delphi_helper: Integer;
    str:string;

Delphi-Quellcode:

//        str:=pstr;         -> Absturz
//        strcopy(str,pstr); -> incompatible types


          for delphi_helper:=1 to ord(pstr[0]) do   //füllt meist nur das erste Element ?!
                      sstr[delphi_helper]:=pstr[delphi_helper];

          no:=;
          delete(sstr,pos('#',sstr),10000);   //ab und an sieht mein string so aus: '123'#A#...#...#...
          str:=String(sstr);                  //währe ja sowieso zu einfach

PS: str:=(string)pstr; bringt auch einen Absturz.


Der pchar kommt aus einer dll, zu der ich maximal die "Zugriffs"-Pascal-Datei ändern kann - habe dort aus pchar shortstring gemacht, kommt aber auch nur ein Absturz.

[Apollonius]

Du kannst nicht einfach die Deklaration der Funktionen ändern!
Eigentlich bist du schon ganz nahe dran. Anscheinend hast du aber noch den C-Cast-Style im Kopf. In Pascal musst du schreiben str := string(pstr);

[brechi]

Delphi-Quellcode:

var
  p: Pchar;
  s: String;


begin
p := 'test'
s := p;

so einfach

delete(sstr,pos('#',sstr),10000); //ab und an sieht mein string so aus: '123'#A#...#...#... das bei der anzeige sollte richtig sein, denn '123' ist der string # ist der hexwert wenn ich mich jetzt nicht vertuhe. also in dem String selbst ist dann keine # sondern der ascii wert der hinter der # steht (#A = ascii(10))

[geskill]

Delphi-Quellcode:

String(PChar)
PChar(String)

Mit DLL's musste da aufpassen, schick da nicht so viele Strings rum.

[SirThornberry]

du musst dir immer bewusst machen das ein PChar nur ein Pointer-Typ ist.

Folgendes solltest du zum Beispiel daher nie machen:

Delphi-Quellcode:

function Irgendwas(): PChar;
var
  meinString: String;
  meinPChar: PChar;
begin
  meinString := 'Text';
  meinPChar := PChar(meinString);
  result := meinPChar;
end;

denn zurück gegeben wird nur ein Pointer (PChar) auf meinString und meinString ist nach verlassen der Funktion nicht mehr gültig. PChar verhält sich also wie so ziemlich jeder andere Pointer und zeigt auf das erste Zeichen der Zeichenkette.

[angos]

und noch ne Lösung:

Delphi-Quellcode:

var
  s: String;
  p: PChar;

[...]
  StrPCopy(p, 'HALLO WELT'); // Schreibt 'Hallo Welt' in den PChar p
  s := StrPas(p);  // Wandelt von Pchar nach String;

[rollstuhlfahrer]

Zitat von Andy386:

delete(sstr,pos('#',sstr),10000); //ab und an sieht mein string so aus: '123'#A#...#...#...

bei deinem netten ergebniss handelt es sich (ich sags auch mal) um das richtige Ergebniss. Dein #A sollte vielleicht nich gefolgt werden von einem #D und dann hat man schon einen mehrzeiligen String. Unter Windows wird eine neue Zeile mit Chr(10) und Chr(13) signalisiert. Soviel zu deinen #... Strings

rollstuhlfahrer

[Andy386]

s:=p wirft Adressverletzung; hatte ich schon oben

s := string(p); auch

  s := StrPas(p); hatte ich noch nich, geht aber auch nich.


Hier die Wete aus dem Debug Inspector:
pstr: PAnsiChar $12F628
Wert 'wrong command'


ich bin echt gleich am Ende....

[rollstuhlfahrer]

dann versuchs mal mit

S := Copy(p, 1, maxInt); rollstuhlfahrer

[Nuclear-Ping]

Zitat von Andy386:

s:=p wirft Adressverletzung; hatte ich schon oben

s := string(p); auch

  s := StrPas(p); hatte ich noch nich, geht aber auch nich.


Hier die Wete aus dem Debug Inspector:
pstr: PAnsiChar $12F628
Wert 'wrong command'


ich bin echt gleich am Ende....

Mach mal ein leeres Projekt und übernimm das Beispiel. s := p dürfte afaik keine Zugriffsverletzung werfen!