Word to PChar

[SirThornberry]

der fehler liegt wie erwartet hier:
ItemInfo[i].DateText := PChar(Format('%.2d:%.2d:%.3d', [TempSystemTime.wDay, TempSystemTime.wMonth, TempSystemTime.wYear])); Grund: Das Ergebnis von Format ist außerhalb der Funktion nicht mehr verfügbar. Das ganze würde dem gleich kommen:

Delphi-Quellcode:

var
  abc: String;
begin
  [...]
  ItemInfo[i].DateText = PChar(abc);

Das Ergebnis liegt also auf dem Stack und nach verlassen der Funktion zeigt zwar der Zeiger noch auf diese Stelle aber sobald etwas neues auf den Stack gepackt wird, wird auch der Wert überschrieben der irgendwann mal dort stand.

Noch besseres Beispiel:

Delphi-Quellcode:

procedure GibZahlAlsString(Zahl: Integer): PChar;
var
  meinString: String;
begin
  meinString := IntToStr(Zahl);
  result = @Zahl[1];
end;