type
TCurveData = packed record
OneRow : string[250];
end;
//保存資料
var
s:string;
RecFile : file of TCurveData;
RecData: TCurveData;
begin
s:= '張三'；
s:= s + '33.758';
...............(很多字串構成的)
AssignFile(RecFile,filename); //關聯外部檔案
Reset(RecFile);
RecData.OneRow:= s;
Seek(RecFile,FileSize(RecFile)); //末尾追加
Write(RecFile,RecData);
CloseFile(RecFile); //關閉
end;
//讀取資料
var
RecFile : file of TCurveData;
RecData: TCurveData;
CommaStr:TStringList;
begin
Seek(RecFile, x); //定位到第X行
Read(RecFile,RecData);
CommaStr.CommaText:= Trim(RecData.OneRow);
Edit1.Text:= CommaStr[0];
Edit2.Text:= CommaStr[1];
Edit3.Text:= CommaStr[2];
Edit4.Text:= CommaStr[3];
..........
end;
以上是我借用的網上找來的一個方法，但是每一次在末尾添加的資料長度有限制啊，不能超過string[250]。
我現在每次想在末尾追加一行 1000個長度的資料，怎么辦啊，，，，，，
uj5u.com熱心網友回復：
text.appenduj5u.com熱心網友回復：
少俠，能不能詳細點啊，怎么添加，然后還要精確讀取哦
uj5u.com熱心網友回復：
vartxt:TextFile;
s:string;
path:string;
begin
path:=ExtractFilePath(Application.ExeName);
Memo1.Clear;
AssignFile(txt,path+'\test.txt');
Append(txt); //寫打開檔案，指標到尾
Writeln(txt,'這是豬悟能寫入的文本'); //寫入一行帶行結束標志
CloseFile(txt);
end;
uj5u.com熱心網友回復：
不好 ，代碼貼的有問題。。要保存的資料 ：
s:= '張三' + ‘,’+ '12312312' + ',' + .................................; //中間有逗號分隔開。便于讀取的時候分開讀取。
我的意思是保存的時候是記錄資料型別， 最大長度有限制啊。 我想保存很長的資料咋辦啊。。。。。。。。
uj5u.com熱心網友回復：
大嬸啊 來個大嬸啊uj5u.com熱心網友回復：
讀的時候SPLIT字串就行。度娘有uj5u.com熱心網友回復：
好 試試看
uj5u.com熱心網友回復：
TStringList讀檔案進來，隨便你添加一行多長uj5u.com熱心網友回復：
這個好像非常犀利啊， 但是能不能具體點啊，我是大白啊。
s:= '張三' + ‘,’+ '12312312' + ',' + .................................;
例如 把它當做一行存起來， 然后下一次類似資料再存一行（需要換行啊）。
需要的時候再把它讀取出來。
大佬 救命啊
uj5u.com熱心網友回復：
還有如何按行 讀取出來 ， 目前不懂怎么做，雖然網上找了個例子，但是一改就錯啊。。。uj5u.com熱心網友回復：
txt 就用 tstringlitexcel 就用xlswriteread
cvs 沒用過
uj5u.com熱心網友回復：
建議你還是用ADO吧uj5u.com熱心網友回復：
有些 文本 或者 檔案 之類，是以 格式方式保存的轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/17642.html
標籤：語言基礎/算法/系統設計
上一篇：非關系型資料庫