Word to PChar

[DeddyH]

Wo wird denn TempSystemTime befüllt? Hab ich was übersehen?

[lbccaleb]

die hab ich dort als variablen, denn die werden beim ausführen der procedure neu eingelesen (augenblickliche zeit) und dann von dem zeitpunkt an, soll er mir halt 7 tage in der cbbox anzeigen..

[SirThornberry]

@deddy: ich glaub du hast was übersehen. wenn ich mich richtig entsinne erwartet GetLocalTime einen var-parameter.

[Die Muhkuh]

Dito,

Zeile 6:

Delphi-Quellcode:

GetLocalTime(TempSystemTime);

[lbccaleb]

hab mal nen screenshot von der cbbox gemacht:

[edit=SirThornberry]Bild in Anhang gepackt - Mfg, SirThornberry[/edit]

[DeddyH]

OK, eine Zeile nicht gesehen. Geht es nur darum, den Wochentag von einem Datum + x Tage zu ermitteln? Dann schau Dir nochmal meinen (editierten) Beitrag im anderen Thread an.

[SirThornberry]

der fehler liegt wie erwartet hier:

Delphi-Quellcode:

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;

[lbccaleb]

Zitat:

Zitat von SirThornberry

der fehler liegt wie erwartet hier:

Delphi-Quellcode:

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.

ok und was kann ich zumindest dagegen schon mal tun??

[SirThornberry]

Die Frage kann man am besten beantworten wenn du uns zeigst was ItemInfo ist.
Zur Zeit ist bei dir

Delphi-Quellcode:

ItemInfo[i].DateText

ein Pointer (PChar ist nichts anderes). Wenn du also direkt in DateText Daten halten willst solltest du einen anderen Typ wählen. Anderenfalls musst du Speicher reservieren wo du die Daten dann hinpackst und darauf kannst du dann DateText zeigen lassen.

[Remko]

Maybe I don't understand the question right because of my bad German Language knowledge but it seems to me you want to display a systemtime as string? Why not use SystemTimeToDateTime and use format?