Indlæse en TXT-fil i en TEdit...

Går ud fra du har en TEdit pr. linie i din tekstfil

var
  s : string;
begin
  AssignFile(f,'c:\blabla.txt');
  Reset(f);
  ReadLn(f,s); Edit1.Text := s;
  ReadLn(f,s); Edit2.Text := s;
  CloseFile(f);
...
end;

i stedet for at bruge Textfile kan du også bruge Tstringlist:

//READ TO EDIT
var
  s : Tstringlist;
begin
  s := Tstringlist.create;
  s.loadfromfile('c:\blabla.txt');
  edit1.text := s.text;
  s.free;
end;

//READ TO RICHEDIT
var
  s : Tstringlist;
begin
  s := Tstringlist.create;
  s.loadfromfile('c:\blabla.txt');
  richedit1.lines := s;
  s.free;
end;


Held og Lykke fra

ZeroHero

doc404 laver du ikke et svar?

okay nu har jeg et problem!
nu kan jeg ikke huske hvordan jeg gemte min tedits tekst til den txt-fil?
jeg skal både læse og kunne skrive til den via tedit!!

forresten så skal jeg skrive til txt-filen flere stedder i mit project, f.eks. ved en buttonclick-event og en formclose-event..

altså!! den gider ikke gemme teksten mere, jeg ved ikke hvorfor!

Jeg har lavet:
OpenDialog1.Execute;
Edit1.Text := Opendialog1.FileName;

Og så har jeg lavet:
f : textfile;
begin
  assignfile(f, 'HL.txt');
  rewrite(f);
  writeln(f, edit1.text);
  closefile(f);

Men hvorfor gider den ikke gemme Edit1.text hvis man Opendialog1.Execute'er ?
Den gemmer kun hvis man selv skriver i Edit1!

prøv med...

assignfile(f, Opendialog1.FileName);

hvis det er det, du mener!

prøv at skrive hele stien til HL.txt!!!

For en god ordens skyld, så skriv lige if OpenDialog1.Execute then ... Hvis brugeren så ikke vælger noget får du ikke noget uventet. ;)

nej, OpenDialog1s FILENAME skal være den text i HL.txt!!!

her, kig lige på nedenstående:

procedure TForm1.Button5Click(Sender: TObject);

begin
if opendialog1.Execute then edit1.Text := opendialog1.FileName;

end;

...

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
f : textfile;
begin
  assignfile(f, 'HL.txt');
  rewrite(f);
  writeln(f, opendialog1.filename);
  closefile(f);
end;


HVORFOR gider den kun hvis man selv skriver i EDIT1 og ikke hvis man executer opendialog?!!!?

prøv derefter med:
procedure TForm1.Button5Click(Sender: TObject);

begin
if opendialog1.Execute then begin edit1.Text := opendialog1.FileName;
edit1.text := opendialog1.filename;
end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
f : textfile;
begin
  assignfile(f, 'HL.txt');
  rewrite(f);
  writeln(f, edit1.text);
  closefile(f);

Ide:

private
  OpenDlgFileName: String;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    OpenDlgFileName := OpenDialog1.FileName;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  F: TextFile;
begin
  AssignFile(F, 'HL.txt');
  Rewrite(F);
  Writeln(F, OpenDlgFileName);
  CloseFile(F);
end;

Okay jeg brugte så dette i stedet:

procedure TForm1.Button5Click(Sender: TObject);

begin
if OpenDialog1.Execute then begin
    OpenDlgFileName := OpenDialog1.FileName;
    Edit1.Text := OpenDlgFilename;
end;
end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  F: TextFile;
begin
  AssignFile(F, 'HL.txt');
  Rewrite(F);
  Writeln(F, OpenDlgFileName);
  CloseFile(F);

end;

-------------------------------------------------

Til at læse HL.txt har jeg brugt:

var
  s : string;
  f : textfile;
begin

  AssignFile(f,'HL.txt');
  Reset(f);

  ReadLn(f,s); Edit1.Text := s;

  CloseFile(f);

Men der kommer intet i Edit1.. hvorfor??

Fordi der ikke står noget i din text-fil... :)

Hvad sker der når du åbner den i notepad eller noget?

Jamen dokumentet er tomt!
Fucking weird...

den skulle jo gemme edit1s tekst i dokumentet, men det gør den ikke!

Nu laver jeg lige noget fra bunden, og så prøver du det... Det SKAL virke!!!

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  F: TextFile;
begin
  S := Application.ExeName;
  AssignFile(F, ExtractFilePath(S) + 'HL.txt');
  Rewrite(F);
  WriteLn(F, S);
  CloseFile(F);
end;

Det SKAL virke!!! Ellers så prøv at bruge Write i stedet for Writeln...

Jeg vil jo have Edit1.text i TXT-dokumentet!

Jaaah, det var jo selvfølgelig et eksempel! :)

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  F: TextFile;
begin
  S := Edit1.Text;
  AssignFile(F, ExtractFilePath(S) + 'HL.txt');
  Rewrite(F);
  WriteLn(F, S);
  CloseFile(F);
end;

Vær'sko da! ;)