Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.012 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

PChar als Result wird verfälscht

  Alt 16. Jun 2005, 13:19
Hallo Leute,

ich bin gerade dabei, einen Bug in Zeos zu beheben, aber ich komm nicht drauf.
Ich habe folgende Funktion:
Delphi-Quellcode:
function TZRowAccessor.GetPChar(ColumnIndex: Integer;
  var IsNull: Boolean): PChar;
begin
{$IFNDEF DISABLE_CHECKING}
  CheckColumnConvertion(ColumnIndex, stString);
{$ENDIF}
  Result := nil;
  if FBuffer.Columns[FColumnOffsets[ColumnIndex - 1]] = 0 then
  begin
    case FColumnTypes[ColumnIndex - 1] of
      stString:
        Result := @FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1];
      else
        Result := PChar(GetString(ColumnIndex, IsNull)); // <-- diese Zeile wird ausgeführt
    end;
    IsNull := False; // <-- Haltepunkt
  end else
    IsNull := True;
end;
Beim Haltepunkt steht das richtige Ergebnis in Result,
allerdings werden beim nächsten Befehl einige Zeichen abgeschnitten/verfälscht.

Im CPU-Fenster kann ich beobachten, dass der Aufruf der Methode LStrClr diese Veränderung hervorruft.
Das komische ist, dass dies unregelmäßig geschieht. Hat jemand eine Ahnung, woran das liegen könnte?

MfG
Stevie
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat