文件流的簡單問題。 請進,在線等待。 (90分)

  • 主题发起人 主题发起人 lycheng7622
  • 开始时间 开始时间
L

lycheng7622

Unregistered / Unconfirmed
GUEST, unregistred user!
文本文件格式如下:
.........
"就緒",
"無效的指令",
"請輸入英文字母",
"請輸入數字",
"請輸入十六進制數字",
"請輸入文數字",
................
................
"Configure",
"Colse Mold",
"Open Mold",
"Core Pull",
"Air Blast",
"Inject",
.........
要求以文件流的方式打開文本文件。將""之間的字符串讀出,放入Access資料表的某字段中。
注意:"" 之間的字串有中文、也有英文。
90分已經是全部的家產,分不夠以後再加。
 
var
fs:tfilestream;
sl:tstringlist;
begin
try
fs:=tfilestream.create('filename',fmOpenRead);
sl:=tstringList.create;
sl.loadfromstream(fs);//这样在sl中系统就已经自动将你的文本分好了,每一行一个,你看着处理!
finnaly
fs.free;
sl.free;
end;
end;
 
接受答案了.
 
后退
顶部