[gelöst] wie geht PChar

[oliver2104]

Hallo, ich brauche für ein Programm den Datentyp PChar,
scheitere aber schon bei den einfachsten Dingen.
Hab mir ein Test-Programm laut der fpc-Wiki erstellt:

Code: Alles auswählen

// Source: https://wiki.freepascal.org/PChar
program test;
{$MODE OBJFPC }
uses
  sysutils;
var       
  p: PChar;      //Declaration:
Begin
  // Valid assignments:
  p := 'This is a null-terminated string.';  // das funktioniert
  p := IntToStr(45); // das nicht -> Error: Incompatible types: got "AnsiString" expected "PChar"
End.

was mach ich da falsch ?

[PascalDragon]

scheitere aber schon bei den einfachsten Dingen.

PChar zählt eben schon an sich nicht zu den einfachsten Dingen.

was mach ich da falsch ?

Du mischt Pascal Strings und Null terminierte Strings.

Du hast zwei Möglichkeiten das zu lösen.

Entweder, wenn der Pascal String für die Lebenszeit des PChars ebenfalls aktiv bleibt, dann kannst du einfach zu PChar umcasten. Dein Beispiel wäre dann wie folgt:

Code: Alles auswählen

var
  s: String;
  p: PChar;
begin
  s := IntToStr(42);
  p := PChar(s); // nicht direkt den Funktionsaufruf hier reinmachen!
  // solange "s" im Scope ist, ist "p" auch zugreifbar
end.

Andernfalls musst du umkopieren und dann auch den PChar wieder selbst freigeben:

Code: Alles auswählen

var
  s: String;
  p: PChar;
begin
  s := IntToStr(42);
  p := PChar(GetMem(Length(s) + 1));
  Move(s[1], p[0], Length(s) + 1); // dies kopiert das #0, das jeder AnsiString am Ende hat, mit
  // nutze p
  // ...
  FreeMem(p);
end.

[oliver2104]

Danke für die tolle Antwort,
glaubte schon, ich hätte es verstanden und hab dein erstes Beispiel ausprobiert.
Also das mit dem Erhalt des Strings.

Code: Alles auswählen

program test;
{$MODE OBJFPC}
uses
  sysutils;
var
  s: String;
  p: PChar;
begin
  s := IntToStr(42);
  p := PChar(s); // nicht direkt den Funktionsaufruf hier reinmachen!
  // solange "s" im Scope ist, ist "p" auch zugreifbar
end.

Leider kompiliert das schon wieder nicht wegen:

Code: Alles auswählen

  p := PChar(s);  // test.pas(10,8) Error: Illegal type conversion: "ShortString" to "PChar"; 

Also wenn das bei dir funktioniert, hab ich vielleicht eine falsche Compiler-Option oder eine fehlende Uses-Declaration

[m.fuchs]

Leider kompiliert das schon wieder nicht wegen:

Code: Alles auswählen

  p := PChar(s);  // test.pas(10,8) Error: Illegal type conversion: "ShortString" to "PChar"; 

Also wenn das bei dir funktioniert, hab ich vielleicht eine falsche Compiler-Option oder eine fehlende Uses-Declaration

Füge mal noch

Code: Alles auswählen

{$H+}

zu den Compileroptionen dazu.

[oliver2104]

Danke, jetzt hat es funktioniert !