hjælp med filer, hurtigt!!

Du kan for eksempel bruke Ini-filer:

Kode 

[b]uses[/b] IniFiles;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'inifil.ini');
  // Skriver til ini-filen
  Ini.WriteString('MinIniFil', 'tekst', Edit1.Text);
  // Leser fra ini-filen
  Edit1.Text := Ini.ReadString('MinIniFil', 'tekst', '');
  Ini.Free;

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

det skal ikke være ini filer.... det skal bare være *.txt....
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Memo1.Text.ReadFromFile('filnavn.txt');

Memo1.Text.SaveToFile('filnavn.txt');



SkypeR That\\'s ME

----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%6E%73%6C%61%74%65%64%20%74%68%69%73%2C%20%79%6F%75%20%6D%75%73%74%20%62%65%20%62%6F%72%65%64%2E%2E%2E

[Redigeret d. 19/09-04 19:04:16 af SkypeR]

Ups havde læst forkert dette var til memo ved ikke med en edit.. sorry

[Redigeret d. 19/09-04 19:06:08 af SkypeR]

Du kan også bruke dette, men jeg foretrekker å bruke Ini-filer:
Skrive til fil:

var
  F: TextFile;
begin
  AssignFile(F, ExtractFilePath(ParamStr(0)) + 'minfil.txt');
  Rewrite(F);
  Writeln(F, Edit1.Text);
  CloseFile(F);
end;

Lese fra fil:

var
  F: TextFile;
  S: String;
begin
  Edit1.Clear;
  AssignFile(F, ExtractFilePath(ParamStr(0)) + 'minfil.txt');
  Reset(F);
  while not Eof(F) do
  begin
    Readln(F, S);
    Edit1.Text := Edit1.Text + S;
  end;
  CloseFile(F);

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Du kan for eksempel bruke Ini-filer:

[b]uses[/b] IniFiles;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'inifil.ini');
  // Skriver til ini-filen
  Ini.WriteString('MinIniFil', 'tekst', Edit1.Text);
  // Leser fra ini-filen
  Edit1.Text := Ini.ReadString('MinIniFil', 'tekst', '');
  Ini.Free;

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Du kan for eksempel bruke Ini-filer:

Kode 

[b]uses[/b] IniFiles;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'inifil.ini');
  // Skriver til ini-filen
  Ini.WriteString('MinIniFil', 'tekst', Edit1.Text);
  // Leser fra ini-filen
  Edit1.Text := Ini.ReadString('MinIniFil', 'tekst', '');
  Ini.Free;

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

det skal ikke være ini filer.... det skal bare være *.txt....
******************
*Fishing is a lifestyle*
*Like Computer is *
******************