線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1185
推到 Plurk!
推到 Facebook!

自動將 FileListBox 之最後一筆資料取出後存入資料庫

答題得分者是:hagar
sword185
一般會員


發表:36
回覆:81
積分:23
註冊:2002-06-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-09-27 16:04:58 IP:61.221.xxx.xxx 未訂閱
請教各位先進一個問題 我用FileListBox1元件,將指定的目錄底下的圖檔連結起來 程式碼如下: procedure TForm1.FileListBox1Click(Sender: TObject); Var Select_Pic:String; begin Select_Pic:=FileListBox1.FileName; IF(UPPerCase(ExtractFileExt(Select_Pic))='.BMP')Or (UPPerCase(ExtractFileExt(Select_Pic))='.JPG')Or (UPPerCase(ExtractFileExt(Select_Pic))='.GIF')Then Begin Image2.Picture.LoadFromFile(Select_Pic); End; end; 我現在想做的是: 1.直接利用程式碼,抓取最後一筆圖檔,並且存入資料庫中 2.將圖檔的檔名轉換成字串(應該是直接抓取第N幾個字元到第M 個字元),語法為何? 在此先謝謝各位先進!
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-09-27 17:17:57 IP:211.22.xxx.xxx 未訂閱
1.FileListBox1.Items[FieldListBox1.Items.Count-1]; // 最後一個 FileName 2.用 ExtractFileName 這個 function    -- Everything I say is a lie.
sword185
一般會員


發表:36
回覆:81
積分:23
註冊:2002-06-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-09-30 10:43:17 IP:61.221.xxx.xxx 未訂閱
謝謝 hagar 但是 FileListBox1.Items[FieldListBox1.Items.Count-1]; 應該改成 FileListBox1.Items[FileListBox1.Items.Count-1]; 還是非常謝謝您
系統時間:2024-05-07 12:54:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!