我是菜鸟，对于delphi是半路出家的， 我想打开一个文件，读取里边的字段， 文件保存格式如下： 啊啊啊啊 哦哦哦哦哦 和和和和和和和和和和和 请问各位前辈指点指点，谢谢 -= 人生苦短，何不潇洒走一回？ =- 發表人 - leqan 於 2003/10/11 12:09:52

看一下 AssignFile 的 help 的範例    --- 歡迎光臨 KTop 研究院

引言: 看一下 AssignFile 的 help 的範例 --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> 要是整行读取，我懂得，但我要的是在这行的每一段啊 我要的结果如下面： 啊啊啊啊 哦哦哦哦哦 和和和和和和和和和和和 -= 人生苦短，何不潇洒走一回？ =-

參考這篇: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25283    --- 歡迎光臨 KTop 研究院

procedure TForm1.Button1Click(Sender: TObject);
var 
  ABC:TStringList;
  F:TextFile;
  S:string;
  i:Integer;
begin
  if OpenDialog1.Execute then
  begin
    ABC:= TStringList.Create;
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    Readln(F, S);
    ABC.CommaText:=S;
    for i := 0 to ABC.Count-1 do
    ShowMessage(ABC[i]);
    Label1.Caption:= S;
    CloseFile(F);
end;
end;

-= 人生苦短，何不潇洒走一回？ =-