1樓:匿名使用者
rewrite(mytext);
for i := 1 to 10 do begin
customers[i].id := 'test:' + inttostr(i);
customers[i].code := 'buy:' + inttostr(i);
customers[i].name := 'monty' + inttostr(i);
write(mytext, customers[i]);
end;
closefile(mytext);
for i := 1 to 10 do begin
customers[i].id := '0';
customers[i].code := '0';
customers[i].name := '0';
end;
//只讀模式開啟檔案
reset(mytext);
//讀取檔案是否結束
while not eof(mytext) do begin
read(mytext, customer);
writeln(customer.id, customer.name, customer.code);
end;
closefile(mytext);
readln;
except
on e: exception do
writeln(e.classname, ': ', e.message);
end;
end.
c窗體應用程式中怎樣將資料寫入資料庫
string str3 server database 資料 庫名 integrated security true 資料庫連線字串 sqlconnection conn3 new sqlconnection str3 新建資料庫連線物件 conn3.open 實現連線，開啟資料庫 sql mand...
如何將pdf檔案壓縮到最小，怎樣將PDF檔案壓縮到最小
如何將pdf檔案壓縮到最小 pdf檔案用一般的壓縮軟體效果不大。推薦方法 用adobe acrobat軟體開啟pdf檔案，點選 高階 pdf優化器 或者點選 文件 優化掃描的pdf 都可以減小pdf檔案的體積，也可以二者合用，這樣處理一般都能減小50 以上。但是要說明的是 減小體積是以損失質量為代價...
怎樣將指定文字中的字串替換後生成新的文字檔案
import os os.chdir d 跳到d盤 if not os.path.exists pp.txt 看一下這個bai 檔案du是否存zhi在 exit 1 不存在就退出 lines open pp.txt readlines 開啟檔案,讀入每一行dao fp open pp2.txt w ...