String temp_filename ;
     ////////////////////////////////// Mail Title Rander.
     self.TMail_Frame1.Mail_digest.Lines.Clear;
     self.TMail_Frame1.Mail_digest.DefAttributes.Size = 10;
     self.TMail_Frame1.Mail_digest.Lines.Add("寄件者: "+From+"       收件者: "+Too+"       時間: "+ Date );
     self.TMail_Frame1.Mail_digest.SelStart = 0;
     self.TMail_Frame1.Mail_digest.SelLength = 7;
     self.TMail_Frame1.Mail_digest.SelAttributes.Style = [fsBold];
     self.TMail_Frame1.Mail_digest.SelStart = 8 + length(From) + 7;
     self.TMail_Frame1.Mail_digest.SelLength = 7;
     self.TMail_Frame1.Mail_digest.SelAttributes.Style = [fsBold];
     self.TMail_Frame1.Mail_digest.SelStart =  self.TMail_Frame1.Mail_digest.SelStart + 7 + length(Too) + 7;
     self.TMail_Frame1.Mail_digest.SelLength = 5;
     self.TMail_Frame1.Mail_digest.SelAttributes.Style = [fsBold];         self.TMail_Frame1.Mail_digest.Lines.Add("主旨: "+ subject);
     self.TMail_Frame1.Mail_digest.SelStart = length(self.TMail_Frame1.Mail_digest.Lines.Strings[0]);
     self.TMail_Frame1.Mail_digest.SelLength = 5;
     self.TMail_Frame1.Mail_digest.SelAttributes.Style = [fsBold];         /////////////////////////////////////// Decode Message Body;
     Gen_Temp_filename(temp_filename);
     // Msg.Body.SaveToFile(temp_filename);
     RAW.SaveToFile(temp_filename);
     self.TMail_Frame1.Mail_Stage.Navigate(temp_filename);

引言: Copy Delphi 中的取字串某段，可以改用 AnsiMidStr(字串, 開始位置, 長度) Inc Inc 是加 1 的意思，所以就改用 或者是加 1 Inc(X) => x ; or x = x 1; Self 是自己的意思，BCB 好像是用 This 吧，有點忘記了 其實 Self 不加也可以啊

function TForm1.Decode_Msg_To_Lists(Msg: TIdMessage; MailSize:integer): integer;
var
   NewItem : TListItem;
   Subject, Too : string;
   MyData : Integer_Ptr;
begin
     subject := '';
     NewItem := Mail_ListItem.Items.Add;
     New(MyData);
     NewItem.Data := MyData;         case MSg.Priority of
          mpHighest, mpHigh:
                     begin
                          NewItem.ImageIndex := 0;
                          MyData^ := 0;
                     end;
          mpLow, mpLowest:
                 begin
                      NewItem.ImageIndex := 2;
                      MyData^ := 2;
                 end;
     else
         begin
              NewItem.ImageIndex := 1;
              MyData^ := 1;
         end;
     end;         //NewITem.ImageIndex :=
     //NewITem.Caption := '';         Too := DecodeHeader(Msg.From.Text);
     //Too := Msg.From.Text;
     //NewItem.Caption := Too;
     NewItem.SubItems.Add(Too);
     Subject := DecodeHeader(Msg.Subject);
     //Subject := Msg.Subject;
     NewItem.SubItems.Add(Subject);
     NewItem.SubItems.Add(DateToStr(Msg.Date));
     NewItem.SubItems.Add(IntToStr(MailSize));         Result := 0;
end;

引言: 再請問，上述程式碼中Integer_Ptr是什麼資料型態，我該怎麼改？ 還有MyData^ := 2;中的"^"有是什麼意思？謝謝...

引言: 謝謝，但是我的問題還有 >> 我在>> 其中>< face="Verdana, Arial, Helvetica"> 你使用了 TIdMessage，那名字應該會是 IdMessage1 之類的名稱吧？ 注意看看丟進 Decode_Msg_To_Lists 裡的 IdMessage 名字有沒有對到

引言: 因為TIdMessage的Name我改成IdMessage，我找不到其他的解決方法，麻煩了，謝謝

use TIdMessage;
var
  IdMessage: TIdMessage;
begin
  IdMessage := TIdMessage.Create;
end;

引言:

引言: 因為TIdMessage的Name我改成IdMessage，我找不到其他的解決方法，麻煩了，謝謝

不然就自己寫啊

use TIdMessage;
var
  IdMessage: TIdMessage;
begin
  IdMessage := TIdMessage.Create;
end;

這樣就不會有這個問題了吧，呵呵

是我自己沒注意看，原來是我function裡面傳值傳錯了 現在可以把信件的標題收下來了，只是還有一些小問題...