Einzelnen Beitrag anzeigen

Haegar

Registriert seit: 10. Dez 2002
Ort: Peitz
319 Beiträge
 
Delphi 7 Professional
 
#1

wert aus *.txt-File lesen

  Alt 6. Apr 2003, 18:18
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
  Mit Zitat antworten Zitat