Problem mit Zeigern

[Gambit]

Hallo,

ich verwende hier eine API-Funktion(OemToCharBuff) die als Parameter PAnsiChar erwartet und ANSI-Text in OEM-Text umwandelt:

Auszug aus meiner Procedur:

Delphi-Quellcode:

If isUseOEM then
      begin
        Title:= PChar(QueryRef.FieldByName('aString').AsString);
        getMem(OEMTitle, length(Title));
        OemToCharBuff(Title, OEMTitle, Length(Title));
        FormSelectedTitles.ListBoxFoundTitles.Items.Add(OEMTitle);
        FreeMem(OEMTitle);
      end

wobei Title und OEMTitle vom Typ PAnsiChar sind.

Wenn ich die Procedure zum ersten Mal aufrufe funzt es einwandfrei. Rufe ich sie ein zweites Mal auf, bekomme ich zwar auch meinen umgewandelten Text, dahinter stehen dann aber oft noch merkwürdige Sonderzeichen wie ein § oder ein A mit Dach oder ähnliches.
Was mache ich denn hier noch falsch?

Gruß

Gambit

[jim_raynor]

Ich würde es mal mit getMem(OEMTitle, length(Title)+1); versuchen. Begründung: Es sind nullterminierte Strings. Das bedeutet du brauchst immer noch ein Zeichen für den Nullterminator, damit der String korrekt beendet ist.

[Gambit]

Jau, das wars! Danke! Wär ich so wohl nicht drauf gekommen, leuchtet aber völlig ein...

Gruß

Gambit

[shmia]

Du brauchst dich nicht mit GetMem, FreeMem und Zeigern zu plagen.
Mit den Delphidatentyp AnsiString geht das viel einfacher:

Delphi-Quellcode:

var
   title, OEMtitle : AnsiString;
begin 
   Title:= QueryRef.FieldByName('aString').AsString; 
   // Speicher für Ziel reservieren
   SetLength(OEMtitle, Length(title);
   OemToCharBuff(PChar(Title), PChar(OEMTitle), Length(Title)); 

   FormSelectedTitles.ListBoxFoundTitles.Items.Add(OEMTitle); 
end

[Gambit]

Aha! Nochmals Danke! und wann bzw. wofür benutzt man denn new und dispose?

[Hansa]

Für dynamische Datenstrukturen. Verkettete Listen, Ringe, binäre Bäume usw.