wert aus *.txt-File lesen

[Haegar]

hi,
ich hab in meiner Textdatei sowas wie 8,847362983-E002 oder so stehen.
das wollte ich nu beim laden an eine variable übergeben, und das mit StrToDateTime formatieren, geht aber net.
hier mal der code.

Delphi-Quellcode:

procedure TForm1.bbtn_saveClick(Sender: TObject);
var datei:TextFile;
begin
 assignfile(datei,'info.txt');
 rewrite(datei);
 writeln(datei,dauer);
 closefile(datei);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var datei:TextFile;
    s:string;
begin
 assignfile(datei,'info.txt');
 rewrite(datei);
 readln(datei,s);
 closefile(datei);
 bisher:=StrToDateTime(s);
 lbl_zeit.Caption:=FormatDateTime('t',bisher);
end;

das speichern geht ja, aber beim auslesen kommt in der zeile Read(datei,s); ne felhlermeldung (Laufzeit) ala I/O fehler 104 oder so.
was soll das sein?


gruss haegar

[sakura]

Beim Lesen darfst Du nicht Rewirte nutzen (löschen und neu erstellen), sondern Du musst Reset (öffnen) nutzen.

......

[Haegar]

jo das klappt, aber nu fehlermeldung: der wert 7.3734762873-E003 oder so ist kein gültiger Date und time wert oder so ähnlich! (laufzeit).
da is wohl bei "bisher:=StrToDateTime(s);" ein fehler oder?


gruss haegar

[Daniel B]

Hallo,

Zitat von Haegar:

da is wohl bei "bisher:=StrToDateTime(s);" ein fehler oder?

Und was soll das Bitte für ein Datum werden?
"7.3734762873-E003"

Grüsse, Daniel

[Haegar]

ich hab das im timer auch so gemacht

Delphi-Quellcode:

procedure TForm1.timerTimer(Sender: TObject);
begin
 dauer:=Now-start+bisher;
 lbl_zeit.Caption:=FormatDateTime('t',dauer);
end;

wie soll ich das denn sonst speichern oder laden oder umwandeln???

gruss haegar

[Daniel B]

Das ist Klar, nur ich verstehe nicht wie aus der riesen Zahl ein Datumswert werden soll. So jetzt rein optisch hat das hinten und vorne nicht mit Datum zutun. Sondern mit irgend welchen Zahlen. Oder ist das irgendwie Codiert oder sowas? Wo hast Du denn das her? SElbst gemacht?

Grüsse, Daniel

[Haegar]

nur da was im timer steht!

Delphi-Quellcode:

start:=now; //bei start-knopf
dauer:=now-start+bisher; //im timer
lbl_caption:=FormatDateTime('t',dauer); //im timer

alle (dauer,start,bisher) sind alle von TDateTime
und dann hab ich einfach die dauer (als TDateTime-Format) in die txt-datei gespeichert.

so entsteht der schöne wert.
gruss haegar

edit: habs mal grad mit bisher:=StrToTime(s);
probiert aber auch diese fehlermeldung: '7,343442827E-0002' is not a valid time.

[Haegar]

ok habs......musste beim speichern einfach "TimeToStr(dauer)" nutzen, und dann ging das beim laden mit "StrToTime(s)" ganz einfach

gruss haegar