一行一行的读取文本文件到edit1中(200分)

ljbXS · 2001-09-06

一行一行的读取文本文件到edit1中 文本文件格式，内容如下： asads dfd fghfg yjh tryt jjhh ...... 我想每次从文件中读取一行，也就是一个字符串到edit1中，

honestman · 2001-09-06

先把文件Load进Memo中，然后再一行一行地处理。

阿梁 · 2001-09-06

将文本存和在tstrings中,进行读取. edit1.text:=strings

Chenlili · 2001-09-06

用text文件类型就行了。

j_shen2000 · 2001-09-06

var   F: TextFile;flopen:boolean=false; procedure TForm1.Button1Click(Sender: TObject); begin   if OpenDialog1.Execute then          { Display Open dialog box }   begin     AssignFile(F, OpenDialog1.FileName);   { File selected in dialog box }     Reset(F);flopen:=true;   end; end; procedure TForm1.Edit1Click(Sender: TObject); var s:string; begin   if (flopen) and (not eof(f)) then begin     readln(f,s);     edit1.Text:=trim(s);   end   else messagedlg('文件未打开或者已经到达文件末尾',mtinformation,[mbok],0); end;

ljbXS · 2001-09-06

如果中途要终止，也就是要到文件底，应该怎么写?

ljbXS · 2001-09-06

如果中途要终止，也就是要到文件底，应该怎么写?

教父 · 2001-09-06

处理这种文本文件，我觉得最好的方法就是用TStringList，用LoadFromFile读到内存 中来，要怎么处理就怎么处理，多爽。 sl:=TStringList.Create; try   sl.LoadFromFile('aaa.txt');   for i:=0 to sl.Count-1 do     Edit1.Text:=sl.strings; finally   sl.Free; end;

kals · 2001-09-06

同意教父，用TstringList最方便

iseek · 2001-09-09

听说tstringslist特占资源

gaqizh · 2001-09-09

用TstringList应该是较好的办法

教父 · 2001-09-09

为什么TStringList特占资源？我好象不觉得。

jdshoot · 2001-09-09

如果中途不想读了，想终止就直接 CloseFile 好了，想跳到结尾就用 Readln 配合 Eof 好了。

iseek · 2001-09-10

to教父 如果数据比较大的话就比较明显，一般情况下我也感觉不到。

教父 · 2001-09-10

to iseek：那是，因为TStringList是把所有的内容都读到内存嘛：）

wql · 2001-10-24

//1. 在Form上再放一个Edit2，等待录入行数目。 //2. 建立装入过程: // 申明全局变量:  Var      TxtLineS  : Word; // 放文本总行数目      sl:TStringList; Procedure LoadTxtFile; begin        sl:=TStringList.Create;      try        sl.LoadFromFile('c:/aaa.txt');        TxtLineS:=sl.Count;      except        showmessage('不能打开文件 !');      end; end; //3. 在Edit2中输入需要到的行后<Enter>: procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);  var    _LNo: Integer;  Begin       if key<>#13 then exit; // 不是Enter键！       _LNo:=-1;     try       _LNo:=StrToInt(Trim(Edit2.Text));     except       showmessage('无效的行数值 !');     end;     if (_LNo<=0) then     begin       showmessage('无效的行数值 !');       exit;     end;     if (_LNo>TxtLineS) then     begin       showmessage('已经超过文本的行数目，最大行为:'+Trim(IntToStr(TxtLineS))+' !');       exit;     end;     edit1.text:=sl.Strings[_LNo-1]; end; 把比的分给我吧，谢谢！！！

小唐 · 2002-02-26

ljbXS：     你好！     我猜想你要实现的是不能用一个FOR循环来实现的，那样一闪而过，根本就没有意义！ 你可能是想点击一下鼠标读入一行，再点一次又读入另一行吧（如第一次点击按钮读文 本文件的第一行，第二次点击按钮读第二行），如果是这样，请看我写的程序代码： {首先在C盘根目录下建立一文本文件，名为kkk.txt,内容如下： 1111111111111 2222222222222 3333333333333 4444444444444 5555555555555 ............. } unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   i : integer;  //定义循环控制变量   sl :TStringlist;  //定义字符串列表变量 implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin   sl :=TStringList.Create ; end; procedure TForm1.FormDestroy(Sender: TObject); begin   sl.Free ; end; procedure TForm1.Button1Click(Sender: TObject); const   txtFile='c:/kkk.txt'; begin   if sl.Count =0 then     if fileExists(txtFile) then       sl.LoadFromFile(txtFile);   if i=sl.Count then   begin     i :=0;     //读到文本文件的最后，又从开头读入第一行     Button1.click;   end   else     begin       edit1.text :=sl.Strings;       i :=i+1;     end; end; end.

D影子D · 2002-02-26

var f:system.textfile; s:string; wj:string; maxwidth,i:integer; begin opendialog1.filter:='文本文件(*.txt;*.*)|*.txt;*.*'; try if opendialog1.execute then  //用打开对话框打开文本! begin wj:=opendialog1.filename; end; setlength(s,1000); assignfile(f,wj); reset(f); while not seekeof(f) do begin if seekeoln(f) then readln; read(f,s); edit1.text:=s; end; closefile(f); except end;

kingdeezj · 2002-02-26

不知道你这么用是什么意思？如果是一些EDIT的初始化的话，建议使用INI文件。

天真 · 2002-03-03

呵，我来改一下教父的代码吧！ procedure readtxt(targfilename:string;i:integer);//I为你所要读的行数 sl:=TStringList.Create; try   sl.LoadFromFile(targfilename);   if i<=sl.count-1 then     Edit1.Text:=sl.strings[i-1]   else     showmessage('所需要的行数超过实际行数!') finally   sl.Free; end; 我个人也倾向用STRINGLIST

一行一行的读取文本文件到edit1中(200分)

ljbXS

Unregistered / Unconfirmed

honestman

Unregistered / Unconfirmed

阿梁

Unregistered / Unconfirmed

Chenlili

Unregistered / Unconfirmed

j_shen2000

Unregistered / Unconfirmed

ljbXS

Unregistered / Unconfirmed

ljbXS

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

kals

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

gaqizh

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

jdshoot

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

小唐

Unregistered / Unconfirmed

D影子D

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

Similar threads