我用以下方法建立了文本文件!
var
f:TextFile;
........ assignFile(f,'e:\paul.aaa');
rewrite(f);
writeLn(f,edit1.text);
writeLn(f,edit1.text); closeFile(f);我现在要取出paul.aaa指定行中的内容,是不是用readLn但怎么用呢?
谢谢!
var
f:TextFile;
........ assignFile(f,'e:\paul.aaa');
rewrite(f);
writeLn(f,edit1.text);
writeLn(f,edit1.text); closeFile(f);我现在要取出paul.aaa指定行中的内容,是不是用readLn但怎么用呢?
谢谢!
FList: TStringList;
tmpStr: String;
Begin
FList:= TStringList.Create;
FList.LoadFromFile(TextFileName);
IF n < FList.Count Then begin
tmpStr:= FList.Strings[5] + FList.Strings[6] + ... + FList.Strings[n];
ShowMessage(tmpStr);
End;
FList.Free;
End;
f:TextFile;
para1,para2...:string;........ assignFile(f,'e:\paul.aaa');
reset(f);
readLn(f,para1);
readLn(f,para2); closeFile(f);
FList: TStringList;
tmpStr: String;
Begin
FList:= TStringList.Create;
FList.LoadFromFile(TextFileName);
ShowMessage(flist[5]);
End;
FList.Free;
End;
var
f:TextFile;
i:integer;
para: array[1...3000] of string;........ assignFile(f,'e:\paul.aaa');
reset(f);
while not eof(f) do begin
readLn(f,para[i]);
i:=i+1;
end;
closeFile(f);
var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Readln(F, S); { Read first line of file }
Edit1.Text := S; { Put string in a TEdit control }
CloseFile(F);
end;
end;
法二:
var
strlist: TStringList;
begin
strlist := TStringList.Create;
strlist.LoadFromFile('e:\paul.aaa');
Edit1.Text := strlist.Strings[i]; //i就是指定行的行号,从0开始计数
end;