var sl: TStringList; begin sl := TStringList.Create; sl.LoadFromFile('c:\a.txt'); ShowMessage(sl[0]); sl.Free; end;
抢先 assignfile(text,s_file); reset(text);//读状态 try //while not eof(text) do begin readln(text,s_text);//读一行 finally closefile(text); end;
VAR TEXT:TEXTFILE; assignfile(text,s_file); reset(text); while not eof(text) do begin readln(text,s_text); DO SOMETHING END; closefile(text); end;
呵呵,var f: TextFile; s: String; begin AssignFile(f, 'c:\a.txt'); reset(f); while not eof(f) do begin readln(f, s); { Do Something...} end; CloseFile(f); end;
给你一个我写的编辑器 的程序,我想应该对你有些用处: ///////////////////////////////////////////////////////////////// unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) RichEdit1: TRichEdit; open: TButton; save: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; procedure openClick(Sender: TObject); procedure saveClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; filename: string; implementation{$R *.dfm}procedure TForm1.openClick(Sender: TObject); var ff: textfile; str: string; begin richedit1.Clear; opendialog1.Execute; if opendialog1.FileName <> '' then begin filename := opendialog1.FileName; assignfile(ff, filename); reset(ff); while not Eof(ff) do begin readln(ff, str); richedit1.Lines.Add(str); end; closefile(ff); end;end;procedure TForm1.saveClick(Sender: TObject); var ff: textfile; str: string; i: integer; begin savedialog1.Execute; if savedialog1.FileName <> '' then begin filename := savedialog1.FileName; assignfile(ff, filename); rewrite(ff); for i := 0 to richedit1.Lines.Count do begin writeln(ff, richedit1.Lines[i]); end; closefile(ff); end;end;end.
var ss: TStrings; begin ss := TStrings.Create; ss.LoadFromFile('1.txt'); end;
begin
sl := TStringList.Create;
sl.LoadFromFile('c:\a.txt');
ShowMessage(sl[0]);
sl.Free;
end;
assignfile(text,s_file);
reset(text);//读状态
try
//while not eof(text) do begin
readln(text,s_text);//读一行
finally
closefile(text);
end;
assignfile(text,s_file);
reset(text);
while not eof(text) do begin
readln(text,s_text);
DO SOMETHING
END;
closefile(text);
end;
f: TextFile;
s: String;
begin
AssignFile(f, 'c:\a.txt');
reset(f);
while not eof(f) do
begin
readln(f, s);
{ Do Something...}
end;
CloseFile(f);
end;
/////////////////////////////////////////////////////////////////
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
open: TButton;
save: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure openClick(Sender: TObject);
procedure saveClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
filename: string;
implementation{$R *.dfm}procedure TForm1.openClick(Sender: TObject);
var
ff: textfile;
str: string;
begin
richedit1.Clear;
opendialog1.Execute;
if opendialog1.FileName <> '' then
begin
filename := opendialog1.FileName;
assignfile(ff, filename);
reset(ff);
while not Eof(ff) do
begin
readln(ff, str);
richedit1.Lines.Add(str);
end;
closefile(ff);
end;end;procedure TForm1.saveClick(Sender: TObject);
var
ff: textfile;
str: string;
i: integer;
begin
savedialog1.Execute;
if savedialog1.FileName <> '' then
begin
filename := savedialog1.FileName;
assignfile(ff, filename);
rewrite(ff);
for i := 0 to richedit1.Lines.Count do
begin
writeln(ff, richedit1.Lines[i]);
end;
closefile(ff);
end;end;end.
begin
ss := TStrings.Create;
ss.LoadFromFile('1.txt');
end;