String / AnsiString Mischbetrieb

[Sir Rufo]

Du bekommst Probleme, wenn die Funktion als Parameter einen String entgegennimmt, aber in Wirklichkeit nur für die Verarbeitung eines AnsiString ausgelegt ist.

Beispiel - String in einen Stream schreiben

Delphi-Quellcode:

// Arbeitet ganz toll mit Delphi < D2009
procedure WriteStringToStream( const AStr : string; AStream : TStream );
begin
  AStream.Write( AStr[1], Length( AStr ) );
end;

Hierfür gibt es jetzt 2 Möglichkeiten das umzuschreiben

1. Deklaration anpassen
   
   Delphi-Quellcode:

   procedure WriteStringToStream( const AStr : AnsiString; AStream : TStream );
   begin
     AStream.Write( AStr[1], Length( AStr ) );
   end;

2. Source anpassen
   
   Delphi-Quellcode:

   procedure WriteStringToStream( const AStr : string; AStream : TStream );
   begin
     AStream.Write( AStr[1], Length( AStr ) * SizeOf( Char ) );
   end;