以下run存檔後,開出來只看到輸入的最後一個字元的對應碼? 原意是想要整條字串的。大家怎麼想?謝謝! 我欄位是用TLabeledEdit喔!    void __fastcall TSDIAppForm::FileSaveAsItemClick(TObject *Sender) {  AnsiString Msg;  if (SaveDialog->Execute())         {           if (!FileExists(SaveDialog->FileName))            {              TStringList *all=new TStringList;              all->Add(temp1);              all->SaveToFile(SaveDialog->FileName);              delete all;              SDIAppForm->Caption = ExtractFileName(SaveDialog->FileName) + "日記";              FileName = SaveDialog->FileName;             }             else             {               Msg = "";               Msg = SaveDialog->FileName;               Msg += "\n檔名已存在\n";               MessageBox(GetActiveWindow(),Msg.c_str(),"存檔失敗",64+0);             }           } }        void __fastcall TSDIAppForm::Edit1KeyPress(TObject *Sender, char &Key) {     int i;   AnsiString temp1;  //問題在這裡嗎?   for (i=0;iText.Length();i ) temp1=temp1.sprintf("%x",Edit1->Text[i 1]); } .... 發表人 -

引言: 以下run存檔後,開出來只看到輸入的最後一個字元的對應碼? 原意是想要整條字串的。大家怎麼想?謝謝! 我欄位是用TLabeledEdit喔!

AnsiString temp1;    void __fastcall TSDIAppForm::FileSaveAsItemClick(TObject *Sender)
{
 AnsiString Msg;
 if (SaveDialog->Execute())
        {
          if (!FileExists(SaveDialog->FileName))
           {
             TStringList *all=new TStringList;
             all->Add(temp1);
             all->SaveToFile(SaveDialog->FileName);
             delete all;
             SDIAppForm->Caption = ExtractFileName(SaveDialog->FileName) + "日記";
             FileName = SaveDialog->FileName;
            }
            else
            {
              Msg = "";
              Msg = SaveDialog->FileName;
              Msg += "\n檔名已存在\n";
              MessageBox(GetActiveWindow(),Msg.c_str(),"存檔失敗",64+0);
            }
          }
}        void __fastcall TSDIAppForm::Edit1KeyPress(TObject *Sender, char &Key)
{
 
  int i;
//  AnsiString temp1;  //問題在這裡嗎?
  temp1="";
  for (i=0;iText.Length();i++)
  {
//    temp1=temp1.sprintf("%x",Edit1->Text[i+1]);
    temp1+=IntToHex(Edit1->Text[i+1], 2);
  }
}

.... < face="Verdana, Arial, Helvetica">

e_snare 你好:
(1)試試看改成上面這樣子行不行呢？
(>    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --    發表人 - RaynorPao 於 2004/03/18  08:34:37
        

這樣可以的! 還有就是其實兩個function寫在一起就可以了,因我還沒修改好! 不知我用這種方法來讀寫檔會不會造成下一步資料的顯示格式, 不管在叫出螢幕或讀入檔案裡,改起程式會有所不便? 還是應該採用原始C語言的寫法呢? 例如欄位 第一筆資料123 第二筆資料abcdefg 但寫入檔案時,我要 123a bcde fg 叫出到螢幕又回到自己的欄位! 或更不規則的處理!! 還是既然用了BCB,就忘了C,任何問題都用BCB的資源來解決?