Wie am besten TFileStream.Write?

WeBsPaCe · Verfasst: Fr 24.06.11 16:22

Hi, gibts einen Grund für a statt b oder andersherum?

Delphi-Quelltext

1:
2:
3:
4:
5:

var
  filename, data: AnsiString;
begin
  with TFileStream.Create(filename, fmCreate) do
    begin

markieren

Delphi-Quelltext
1:

Write(data[1], Length(data));

markieren

Delphi-Quelltext

1:	Write(PChar(data)^, Length(data));

markieren

Delphi-Quelltext

1:
2:
3:

    Free;
  end;
end;

Dankeschön.

_________________
Steht der Bauer im Gemüse, hat er später grüne Füße.

jaenicke · Verfasst: Fr 24.06.11 16:36

Bei a wird zusätzlich UniqueString aufgerufen um sicherzustellen, dass der Referenzzähler nicht größer als eins ist (also mehrere Referenzen existieren). Deshalb ist das ein wenig langsamer.

Zudem halte ich die zweite Version auch für sinnvoller von der Syntax her:
Ich nehme den Pointer auf ein Zeichen und dereferenziere diesen Pointer.

Nebenbei wird das auch in den VCL-Quelltexten so benutzt.

WeBsPaCe · Verfasst: Fr 24.06.11 23:19

jaenicke hat folgendes geschrieben :

Zudem halte ich die zweite Version auch für sinnvoller von der Syntax her:
Ich nehme den Pointer auf ein Zeichen und dereferenziere diesen Pointer.

Geschmackssache: wenn man String als Array of Char sieht?

jaenicke hat folgendes geschrieben :

Bei a wird zusätzlich UniqueString aufgerufen um sicherzustellen, dass der Referenzzähler nicht größer als eins ist (also mehrere Referenzen existieren). Deshalb ist das ein wenig langsamer.

Okay. Macht Sinn. Dann wollen wir mal optimieren. ;-)

Danke!

_________________
Steht der Bauer im Gemüse, hat er später grüne Füße.

jaenicke · Verfasst: Sa 25.06.11 05:39

WeBsPaCe hat folgendes geschrieben :

Geschmackssache: wenn man String als Array of Char sieht?

Dass das auch Sinn macht, wenn man es weiß, ist klar.

Aber wenn man nicht weiß was da passiert, denkt man eher, dass nur das eine Zeichen übergeben wird. ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme