有memo1和memo2请问任何将memo1 memo1中的字元用SaveToFile保存在同一个.txt中像如下格式： memo1 aaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaa memo2 bbbbbbbbbbbbbbbbbb bbbbbbbbbbbbbbbbbb bbbbbbbbbbbbbbbbbb 小弟用memo1.Lines.SaveToFile('1.txt');这样的方法但存在覆盖,不知如何做？随便问各位大大,程序日志的处理办法。如程序日志保存成.txt后如何加密，或在程序执行中.txt(类似win2000中的系统日志.log)不能被其他程序打开,我该如何做？谢谢。 發表人 - xxxxzxx 於 2005/06/07 23:59:43

利用另一個 Memo3    

begin
  Memo3.Clear;
  Memo3.Lines.Append('Memo1');
  Memo3.Lines.Append(Memo1.Text);
  Memo3.Lines.Append('Memo2');
  Memo3.Lines.Append(Memo2.Text);
end;

********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

Dear xxxxzxx: 也可使用檔案  如下 FILE *fp; fp = fopen("file", "mode"); 您可使用的mode如下 mode: a , a 第二個是"a加" (因為"加"秀不出來)

插花： xxxxzxx您好，将两个Memo保存到同一个.txt中，格式不变，可参考如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStringList:TStringList;
begin
  MyStringList:=TStringList.Create;
  MyStringList.AddStrings(Memo1.Lines);
  MyStringList.AddStrings(Memo2.Lines);
  MyStringList.SaveToFile('f:\test.txt');
end;

至于文本的加密，可参考：

//…………………………
//作者：Sean Mathews
//…………………………
unit EncryptIt;    interface
USES
    Classes;
const
     C1 = 52845;
     C2 = 22719;    function Encrypt(const S: String; Key: Word): String;  //字串加密
function Decrypt(const S: String; Key: Word): String; //字串解密
procedure EncryptFile(INFName, OutFName : String; Key : Word);//文件加密
procedure DecryptFile(INFName, OutFName : String; Key : Word);//文件解密    implementation    function Encrypt(const S: String; Key: Word): String;
var
   I: Integer;
begin
  Result := S;
  for I := 1 to Length(S) do
      begin
           Result[I] := char(byte(S[I]) xor (Key shr 8));
           Key := (byte(Result[I])   Key) * C1   C2;
      end;
  end;    function Decrypt(const S: String; Key: Word): String;
var
   I: Integer;
begin
  Result := S;
  for I := 1 to Length(S) do
      begin
           Result[I] := char(byte(S[I]) xor (Key shr 8));
           Key := (byte(S[I])   Key) * C1   C2;
      end;
  end;    procedure EncryptFile(INFName, OutFName : String; Key : Word);
VAR
   MS, SS : TMemoryStream;
   X : Integer;
   C : Byte;
begin
MS := TMemoryStream.Create;
SS := TMemoryStream.Create;
    TRY
       MS.LoadFromFile(INFName);
       MS.Position := 0;
       FOR X := 0 TO MS.Size - 1 DO
             begin
                  MS.Read(C, 1);
                  C := (C xor (Key shr 8));
                  Key := (C   Key) * C1   C2;
                  SS.Write(C,1);
             end;
       SS.SaveToFile(OutFName);
    FINALLY
           SS.Free;
           MS.Free;
    end;
end;    procedure DecryptFile(INFName, OutFName : String; Key : Word);
VAR
   MS, SS : TMemoryStream;
   X : Integer;
   C, O : Byte;
begin
MS := TMemoryStream.Create;
SS := TMemoryStream.Create;
    TRY
       MS.LoadFromFile(INFName);
       MS.Position := 0;
       FOR X := 0 TO MS.Size - 1 DO
             begin
                  MS.Read(C, 1);
                  O := C;
                  C := (C xor (Key shr 8));
                  Key := (O   Key) * C1   C2;
                  SS.Write(C,1);
             end;
       SS.SaveToFile(OutFName);
    FINALLY
           SS.Free;
           MS.Free;
    end;
end;    end.

使用：

procedure TForm1.Button2Click(Sender: TObject);
begin
  EncryptFile('f:\test.txt','f:\test.txt',111);
end;    procedure TForm1.Button3Click(Sender: TObject);
begin
  DecryptFile('f:\test.txt','f:\test.txt',111);
end;

参考试试看 <> ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

谢谢deity您的回答。    

引言: Dear xxxxzxx: 也可使用檔案 如下 FILE *fp; fp = fopen("file", "mode"); 您可使用的mode如下 mode: a , a 第二個是"a加" (因為"加"秀不出來)

odyaho兄小弟愚笨您能讲清楚点吗？谢谢

引言: 谢谢deity您的回答。

引言: Dear xxxxzxx: 也可使用檔案 如下 FILE *fp; fp = fopen("file", "mode"); 您可使用的mode如下 mode: a , a 第二個是"a加" (因為"加"秀不出來)

odyaho兄小弟愚笨您能讲清楚点吗？谢谢

上面是標準C的檔案操作函數，MODE指的是開啟檔案的模式，a表示append,r表示read,w表示write，而其中每一個都可再加上b(binary)參數，如rb就是開啟二進位檔讀取，詳細請查閱C標準函式庫fopen，這是C的檔案操作，應該不是你要的Delphi。 -----------------------------------------------

引言:

引言: 谢谢deity您的回答。

引言: Dear xxxxzxx: 也可使用檔案 如下 FILE *fp; fp = fopen("file", "mode"); 您可使用的mode如下 mode: a , a 第二個是"a加" (因為"加"秀不出來)

odyaho兄小弟愚笨您能讲清楚点吗？谢谢

上面是標準C的檔案操作函數，MODE指的是開啟檔案的模式，a表示append,r表示read,w表示write，而其中每一個都可再加上b(binary)參數，如rb就是開啟二進位檔讀取，詳細請查閱C標準函式庫fopen，這是C的檔案操作，應該不是你要的Delphi。 ----------------------------------------------- >< face="Verdana, Arial, Helvetica"> 谢谢Stallion，怪不的看着怪怪的...