圖一有2個問題:我照書上做出我要的功能,但小地方不知道要如何達到 只好向各位大大請教:    問題1的設定方法:請參考圖二 問題2的設定方法: label1.Caption:=FileListBox1.FileName;    如果要達到要求的功能,不知程式要如何修正??     一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

1.TFilterComboBox 的 Filter 屬性只留 *.xls, *.* 這個拿掉 2.用 ExtractFileName 這個 function    -- 歡迎光臨 KTop 研究院!

請教版主:
 1.ok , thk lot?
 2.不懂,我手上只有介紹元件的書,不知道如何結合元件達到此功能?
  procedure TForm2.FileListBox1Change(Sender: TObject);
  begin
    label1.Caption:=FileListBox1.FileName;
  end;
  請教此部分要如何修正 ?     3.剛剛又發生一個新問題:
   請教變數abc,在From1 有宣告,如何在 From2 使用?

一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

2.試試: Label1.Caption := FileListBox1.Items[FileListBox1.ItemIndex]; 3.可宣告在兩個地方(紅色部份): (1) Form2 用的時候要先 uses Unit1; 然後就可直接存取 abc 變數的值, 例: ShowMessage(abc);

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;    type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  abc: string;    implementation    {$R *.DFM}    end.

(2) 一樣先 uses Unit1; 但要以 Form1.abc 的方式存取 abc 變數的值 例: ShowMessage(Form1.abc);

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;    type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    abc: string
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    end.

-- 歡迎光臨 KTop 研究院!

[/code] 報告館長 : 2. 有問題 3. 馬上try, later tell u . 4. 請教一下,如何把 Source Code 上傳,別人只要copy and F9 (Comple)    能自動產生編輯畫面 and 執行檔 [/code] 一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

1.那些改成:

begin
  if FileListBox1.ItemIndex = -1 then
    Label1.Caption := ''
  else
    Label1.Caption := FileListBox1.Items[FileListBox1.ItemIndex];
end;

2.有會員求助區可以利用 -- 歡迎光臨 KTop 研究院!

關於第二個問題,如何只秀出檔名,不要秀出路徑的部分,你可以改成以下程式: Label1.Caption:=ExtractFileName(FileListBox1.FileName); //ExtractFileName為取出檔名的function

ok , thk lot !! 書快被我翻爛了,還找不到我要的功能, 結果上網2Hr 就得到答案了,高手果然是高手 變數問題,明天我在try,謝謝館長今晚的幫忙    一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中