如題 謝謝

procedure TForm1.BitBtn16Click(Sender: TObject); var filestream,savestream:tfilestream; begin //读取 filestream:=tfilestream.Create('c:\1.txt',fmopenread) ; //创建写入 savestream:=tfilestream.Create('c:\2.txt',fmcreate) ; try filestream.Position :=0; savestream.CopyFrom(filestream,0); finally filestream.Free ; savestream.Free ; end; end;

不好意思可能是我說的不夠清楚 假設我有幾個字串的變數要寫入一個文字檔中 要如何做ㄋ

unit ceshi2;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;    type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);      private     { Private declarations }   public     { Public declarations }   end; type //枚举 mymj=(a,b,c,d,e); //集合 myjh=set of mymj; //静态数组 mysz=array[1..10] of integer; //子界 myzj='a'..'z'; //记录 myrecord=record          name:string[100];          age:0..200;          sex:(gril,boy);          filed1:mymj;          filed2:myjh;          filed3:mysz;          filed4:myzj;          case tag:boolean of               true:(filed5:integer;);               false:(filed6:string[100]);          end; //文件 myfile=file of myrecord; myfile_nottype=file; const FileName='c:\3.txt';    var   Form1: TForm1;   tmymj:mymj;   tmyjh:myjh;   tmysz:mysz;   tmyzj:myzj;   tmyrecord:myrecord;   tmyfile:myfile;   tmyfile_nottype:myfile_nottype;    implementation        {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);    begin    tmyrecord.name :='sos_admin'; tmyrecord.age :=22; tmyrecord.sex :=boy; tmyrecord.filed1 :=a; tmyrecord.filed2 :=[a,b,c]; tmyrecord.filed3[1]:=100; tmyrecord.filed4 :='h'; tmyrecord.tag :=true; tmyrecord.filed5 :=99; tmyrecord.filed6 :='ok';        AssignFile(tmyfile,Filename); Rewrite(tmyfile); Write(tmyfile,tmyrecord); closefile(tmyfile); end;        procedure TForm1.Button2Click(Sender: TObject); begin AssignFile(tmyfile,Filename); Reset(tmyfile); read(tmyfile,tmyrecord) ; showmessage(tmyrecord.name ); showmessage(inttostr(tmyrecord.age)); //子界 showmessage(tmyrecord.filed4); closefile(tmyfile); end;    end.    我想这个应该满足您的要求了吧，各种类型都有哦

我把我寫的程式碼貼上來好了 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; FileStream : TFileStream; FileName : String; Data : array [1..10] of String; //資料 implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin FileName := 'C:\Test.txt'; FileStream :=TFileStream.Create(FileName,mCreate ); FileStream.Write(Data,Sizeof(Data)); FileStream.Free ; end; end. 我的資料寫入後會變亂碼~~有辦法便回文字嗎??

unit Unit1;    interface    uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;    type TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;    procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type mydata=array [1..10] of String[50]; //資料 var Form1: TForm1; FileStream : TFileStream; FileName : String; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var data:mydata; begin Data[1]:='aaaaaaaaaaaa'; Data[2]:='bbbbbbbbbbbb'; Data[3]:='cccccccccccc'; FileName := 'C:\Test.txt'; FileStream :=TFileStream.Create(FileName,fmCreate ); FileStream.Write(Data,Sizeof(Data)); FileStream.Free ; end; procedure TForm1.Button2Click(Sender: TObject); var data1:mydata; begin FileName := 'C:\Test.txt'; FileStream :=TFileStream.Create(FileName,fmopenread); FileStream.Position :=0; FileStream.Read(data1,Sizeof(Data1)); showmessage(data1[1]); showmessage(data1[2]); showmessage(data1[3]); FileStream.Free ; end; end. test ok~~~~

謝謝~~~可以讀出來沒有問題 但是我有另外一個問題 就是如果去打開上面程式所產生的檔案裡面會有一推亂碼 有辦法把那些亂碼消除嗎???

兄弟： 那是流文件的产生的特殊格式的代码，不能消除的；