Arbeiten mit PChar

[Gambit]

Hallo,

ich habe hier eine Funktion die als Parameter den Typ PChar erwartet:

function Translate(Src, Dest: PChar; ToOem: Boolean): Integer; virtual; Angenommen ich habe jetzt einen String den ich nach "Dest" umwandeln will dann funzt nicht:

Delphi-Quellcode:

procedure test;
var srcString, DestString: PChar;
begin
  srcString:= ...;
  Translate(PChar(srcString), DestString, false);
end;

Bekomm ich eine Speicherzugriffsverletzung...

wie müsste es denn richtig heißen?

Gruß

Gambit

[Luckie]

Du musst für deinen DestString natürlich auch erst noch Speicher mit GetMem reservieren.

[Binärbaum]

Zitat von Gambit:

..
function Translate(Src, Dest: PChar; ToOem: Boolean): Integer; virtual; Angenommen ich habe jetzt einen String den ich nach "Dest" umwandeln will dann funzt nicht:

Delphi-Quellcode:

procedure test;
var srcString, DestString: PChar;
begin
  srcString:= ...;
  Translate(PChar(srcString), DestString, false);
end;

...
wie müsste es denn richtig heißen?

Du müsstest die Zeile mit Translate(...); folgendermaßen ändern:
Translate(srcString, DestString, false); Da SrcString schon vom Typ PChar ist, muss er nicht mehr nach PChar gecastet werden.

MfG
Binärbaum

[Binärbaum]

Zitat von Luckie:

Du musst für deinen DestString natürlich auch erst noch Speicher mit GetMem reservieren.

Ging das nicht auch mit StrAlloc(...)?

[Gambit]

Zitat von Binärbaum:

Da SrcString schon vom Typ PChar ist, muss er nicht mehr nach PChar gecastet werden.

MfG
Binärbaum

Achne, das ist nat. mein Fehler, srcString soll vom Typ String sein. Es liegt wohl an der von Lucky geschilderten Tatsache, dass ich Speicher reservieren muss. Weiß jetzt nur nicht genau wie...

[Oxmyx]

Zitat von Gambit:

Achne, das ist nat. mein Fehler, srcString soll vom Typ String sein. Es liegt wohl an der von Lucky geschilderten Tatsache, dass ich Speicher reservieren muss. Weiß jetzt nur nicht genau wie...

Wenn du ein Stringliteral schon während der Kompilierzeit zuweist, reserviert der Compiler automatisch Speicher dafür. Zum Beispiel:

Delphi-Quellcode:

var
  str: PChar;
begin
  str := 'Beispieltext';
end;

In deinem Fall ist das aber anders, da zur Kompilierzeit noch nichts zugewiesen wird. Daher musst du erst genug Speicher reservieren, in dem dann dein String Platz findet. Also etwa so:

Delphi-Quellcode:

var
  SrcStr, DestStr: PChar;
begin
  SrcStr := 'Beispieltext';
  GetMem(DestStr, Length(SrcStr));
  Translate(SrcStr, DestStr, False);
  
  // ...und am Ende nicht vergessen:
  FreeMem(DestStr);
end;

[Gambit]

jau Danke, jetzt hab' ichs begriffen. Funktion bringt bringt nur leider nicht das gewünschte Ergenbnis(der String sieht immer noch genauso aus)...

[Binärbaum]

Zitat von Oxmyx:

Delphi-Quellcode:

var
  SrcStr, DestStr: PChar;
begin
  SrcStr := 'Beispieltext';
  GetMem(DestStr, Length(SrcStr));
  Translate(SrcStr, DestStr, False);
  
  // ...und am Ende nicht vergessen:
  FreeMem(DestStr);
end;

Man sollte den Speicher reservieren, bevor man etwas in den PChar schreibt.

[Muetze1]

Moin!

Zitat von Binärbaum:

Man sollte den Speicher reservieren, bevor man etwas in den PChar schreibt.

Ja, und? Wo ist das Problem? Macht das irgendwer hier anders?

MfG
Muetze1

[Khabarakh]

Will Gambit es nicht einfach so ?

Delphi-Quellcode:

procedure test;
var srcString, DestString: string;
begin
  srcString:='a';
  DestString:='bb';
  Translate(PChar(srcString), PChar(DestString), false);
end;