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