Move Anweisung

[MrSpock]

Hallo himitsu,

danke erstmal.

Bin jetzt einen Schritt weiter. Noch tiefer unten im Sumpf der COM-Objekte gibt es Anweisungen der Form:

Delphi-Quellcode:

procedure myKHKbinRead (ObjFileIO : _CFileIO;
           ichannel,
                        ikeyOffset : SmallInt;
              sKey :WideString;
                        sbuffer :Pchar;
                        var irecNb: LongInt);
var
   StrBuffer : AnsiString;
begin
   ObjFileIO.objFile(iChannel).binRead (ikeyOffset ,sKey, irecNb);
   strBuffer := ObjFileIO.objFile(iChannel).strGetFieldBuffer
      (1,ObjFileIO.objFile(iChannel).lngRecordLen);
   if irecNb > 0 then
      Move(StrBuffer[1],sBuffer^,ObjFileIO.objFile(iChannel).lngRecordLen);
end;

Der StrBuffer war bisher als String definiert. Die Funktion ObjFileIO.objFile(iChannel).strGetFieldBuffer gibt aber einen WideString zurück (wie bei COM Objekten üblich). Hier wurde also früher die Konvertiereung zurück in "Small" Strings durchgeführt. Jetzt habe ich dort String durch AnsiString ersetzt (und in allen anderen Lesefunktionen auch) und jetzt sieht es gleich wieder besser aus, wenn ich auch in TCl4_a10110 alle Strings durch AnsiStrings ersetze.