String / AnsiString Mischbetrieb

[p80286]

Wenn Du unter D2009 arbeitest (D7,2005,2006...)
sollte es keine Probleme geben.

Gruß
K-H

[Sir Rufo]

Zitat von p80286:

Wenn Du unter D2009 arbeitest (D7,2005,2006...)
sollte es keine Probleme geben.

Gruß
K-H

Laut Profil hat er XE3

[p80286]

hab ich halt nicht nachgesehen.

gruß
K-H

[musicman56]

Hallo,

ich hab meine Projekte im Zuge der Umstellung von 2007 auf XE2 auch noch nicht vollständig angepasst, und bin natürlich schon mehrfach über dieses Problem / diese Frage gestolpert. Ist es nicht generell so, dass eine Prozedur/Funktion mit string als Parameter auch mit AnsiString klar kommt?

Beispiel:

Delphi-Quellcode:

procedure WriteStringToStream( const AStr : string; AStream : TStream );
begin
  AStream.Write(PChar(Astr)^, Length(AStr));
end;

...was meiner bescheidenen Meinung nach die richtige Implementation wäre, weil

AStream.Write( AStr[0] ....

sowieso nicht mehr geht. (Zugriff auf Element 0 nicht möglich oder so ähnlich)

Außerdem hab ich in solchen ähnlichen Fällen bisher die Proceduren mit overload 2x deklariert...beispielsweise also

Delphi-Quellcode:

procedure WriteStringToStream( const AStr : AnsiString; AStream : TStream );
begin
  AStream.Write(PAnsiChar(Astr)^, Length(AStr));
end;

Dann ist es egal was ich in AStr übergebe. Bitte korrigiert mich wenn ich falsch liege...so genau kenn ich mich auch nicht aus.

[p80286]

Zitat von musicman56:

Ist es nicht generell so, dass eine Prozedur/Funktion mit string als Parameter auch mit AnsiString klar kommt?

Äh nee?
leider hab ich noch keine (bewußt) praktischen Erfahrungen. Aber immer dann wenn Du Dich auf Byte-Ebene begibst, wird es heiß. (Sizeof,length,Char/Byte etc.)
Solange Du Dich auf Textinhalte beschränkst 'Wer Text in C bearbeitet ist selber schuld' sollte keine Probleme bekommen.
Die Typprüfung schlägt je nach vorgabe brutalst zu!

Gruß
K-H

[musicman56]

Sorry K-H, das hab ich ja prinzipiell genauso gemeint wie du schreibst. Etwa sowas wie...

Delphi-Quellcode:

function LeftPad(S : string; L : Byte) : string;
begin
  Result := S;
  while length(Result) < L do Result := ' ' + Result;
end;

... dürfte mit String und AnsiString klar kommen, oder?

[p80286]

Gute Frage, probier's aus. Wenn ich allerdings das bisher gelesene bedenke sollte es gehen.

Gruß
K-H