Einzelnen Beitrag anzeigen

Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Datei mit "#0" schreiben?

  Alt 3. Apr 2007, 01:05
Zitat von himitsu:
nein, ist er nicht.
Delphi-Quellcode:
var str: String;
begin
  str:='wuppdi';
  showmessage(inttostr(PByte(Cardinal(@str[6])+1)^));
end;
Oder, als Assembler-Version:
Delphi-Quellcode:
function blubb(s: String): Byte;
asm
  mov al, byte ptr eax+6
end;

procedure TForm1.FormCreate(Sender: TObject);
var str: String;
begin
  str:='wuppdi';
  showmessage(inttostr(blubb(str)));
end;
Wie du siehst, kommt immer 0 raus. Warum? Damit Strings sich schnell und leicht in PChars konvertieren lassen und man nicht jedesmal Speicher neu reservieren muss, wenn man mal schnell nen String an die WinAPI schickt.


Allerdings ist der String 'wup'#0'di' für Delphi tatsächlich 'wup'#0'di' und nicht 'wup'. Da habe ich mich getäuscht. Sobald man jedoch versucht, in per showmessage o.ä. auszugeben, bleibt nur noch ein 'wup' übrig.
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat