var
   inputfile:textfile;          //宣告輸入檔
   input:TStringList;           //讀取輸入檔字串及分解字串
begin
   assignfile(inputfile,'input.txt');
   reset(inputfile);
   input:= TStringList.Create;
   readln(inputfile,a);               //先讀取m,n,o  求(m欄n列)*(o欄m列) =(o欄n列)
   input.DelimitedText:=a; //DelimitedText是包含分隔字元的整行
   input.Delimiter:=',';   //這是設定分隔字元..以逗點分隔每列的各個元素 
                           //Delimiter設定之後.就可以把DelimitedText拆解成許多的STRING 
   m:=strtoint(input.Strings[0]);   //拆解後的第一組字串
   n:=strtoint(input.Strings[1]);   //拆解後的第2組字串
   o:=strtoint(input.Strings[2]);   //拆解後的第3組字串
   CloseFile(inputfile);   //關閉文字檔
//----------------------------以上為讀取-------------------------------------------
   assignfile(inputfile,'input.txt');
   rewrite(inputfile);   //設定為寫入用
   writeln(inputfile,'test'); //這是寫入一行到文字檔中
   write(inputfile,'test');   //只寫入文字..不換行
   CloseFile(inputfile);   //關閉文字檔
//----------------------------以上為寫入-------------------------------------------
end;

引言: 1.如何載入文本檔案到delphi中? 2.在那裡可找到有關文本檔案格式的簡介呢(中文描述)?

Var
  Sl : TStringList;
  Lines, i : Integer ;
Begin
  Sl := TStringLIst.Create;
  Sl.LoadFromFile('C:\Text.txt'); // 從文字檔讀到StringList
  Memo1.Lines.LoadFromFile('C:\Text.txt'); // 你也可以用Memo1.Lines來處理
  // 以下的SL.xxx都可以改成Memo1.Lines.xxx
  Lines := Sl.Count:
  i := 10 ;
 ShowMessage(Sl[i]); // 秀出第１１列的文字
  SL.Insert(i,'xxxxxxxxxxxxxx'); // 在第11列插入一列文字，原第11列變為第12列
  SL.Add('xxxxxxxxxxxxxx'); // 最後加入一列文字
  Sl.SaveToFile('C:\Text.txt'); // 儲存文字檔
End;