Skrive til txt fil

Tags:    delphi

Jeg har et program der viser en forskellig tal værdi i en edit felt.

Så vil jeg gerne gemme de værdier, som at der vises i edit1 feltet. Sådan at man opsamler værdi dataen til txt filen.

Jeg tænkte på følgende:
___________________________________________________
procedure TForm1.Timer1Timer(Sender: TObject);
Var
tal1: real;
myFile : TextFile;

begin

tal1:= StrToFloat(edit1.Text);

AssignFile(myFile, 'c:\\test.txt');
ReWrite(myFile);
Write(myFile, (tal1));
CloseFile(myFile);

end;

___________________________________________________

det virker desvære bare ikke.
fordi at hvis jeg f.eks. skriver 11 i edit feltet.
så bliver værdien i text.txt til 1.10000000000000E+0001

På forhånd tak
/mvh Jeppe





4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Det er korrekt gjort.
1.1e1 betyder 1.1*10, hvilket giver 11.

Du vil jo sikkert have 11 i stedet for, så brug FloatToStr(tal1) i Write funktionen, altså:
Fold kodeboks ind/udKode 


1101110100010110000101000001

[Redigeret d. 27/02-05 17:13:47 af Nicolai Lyster Fersner]



tak det virker.

Ved du så også hvordan at jeg får flere tal end et i txt filen.

Det forrige tal bliver nemlig hele tiden overskrevet. Jeg har prøvet at ændre lidt i koden, men det virker desværre ikke

På forhånd tak



tak det virker.

Ved du så også hvordan at jeg får flere tal end et i txt filen.

Det forrige tal bliver nemlig hele tiden overskrevet. Jeg har prøvet at ændre lidt i koden, men det virker desværre ikke

På forhånd tak


jeg formoder at du gør sådan her når du skriver flere tal så:

AssignFile(myFile, 'c:\\test.txt');
ReWrite(myFile);
WriteLn(myFile, floattostr(tal1));
WriteLn(myFile, floattostr(tal2));
CloseFile(myFile);

du skal gøre således:

AssignFile(myFile, 'c:\\test.txt');
ReWrite(myFile);
Write(myFile, floattostr(tal1));
CloseFile(myFile);
AssignFile(myFile, 'c:\\test.txt');
ReWrite(myFile);
Write(myFile, floattostr(tal2));
CloseFile(myFile);

Jeppe Johansen
Jeppesoftware@hotmail.com



ehm det er så det omvendte af hvad jeg har skrevet.. :s

Jeppe Johansen
Jeppesoftware@hotmail.com



t