多了tray icon,自動轉換股票名稱為股票代號，以及漲跌停提示    小弟現在正在想下一個想要做的主題，想玩玩看barcode，可是沒有印barcode跟掃描barcode的機器，有沒有模擬器啊?? 

附加檔案：29112_即時股價.exe

這個程式我真得要給您99分了, 感謝您的分享! ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

真是很不錯的程式 goooooooooooooooooooood < >< > 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

忘了講，裡面有用到Tcedit這個元件，所以要看到表單上的東西，請先下載該元件    感謝站長不嫌棄小弟的作品，但小弟認為還有很大的進步空間，而且html parse跟tray icon這兩個都是一邊參考一邊coding的，要小弟現在不參考立刻coding出來，恕小弟目前辦不到啊

引言: 感謝站長不嫌棄小弟的作品，但小弟認為還有很大的進步空間，而且html parse跟tray icon這兩個都是一邊參考一邊coding的，要小弟現在不參考立刻coding出來，恕小弟目前辦不到啊 < face="Verdana, Arial, Helvetica"> 很少人能夠不參考別人的程式而獨立寫出完整程式的啦(包括站長也是), 寫程式需要時間與經驗的累積, 參考別人的程式也是累積自己經驗的方式喔! chimera加油喔! ～～～Delphi K.Top討論區站長～～～

oops,發現convert bug    請把main裡面的timer1timer改成：   if not CheckBox1.checked then     exit   else   begin     BtnOKClick(nil);        tmpadoq:=frmdmmain.ADOQry;     tmpadoq.close;     tmpadoq.sql.clear;     tmpadoq.sql.add('select * from stk_id where wkflceil = ''*''');     tmpadoq.Open;        if not tmpadoq.IsEmpty then     begin       for i:=1 to StringGrid1.rowcount-1 do       begin         tmpstr:=copy(stringgrid1.cells[0,i],1,4);         tmpadoq.close;         tmpadoq.SQL.clear;         tmpadoq.sql.add('select * from stk_id where stkid = ' +                         '''' + tmpstr + '''');         tmpadoq.open; if tmpadoq.fieldbyname('floorprice').asstring = '' then tmplowprice:=0 else tmplowprice:=tmpadoq.FieldByName('floorprice').asfloat; if tmpadoq.fieldbyname('ceilingprice').asstring = '' then tmphighprice:=9999 else tmphighprice:=tmpadoq.fieldbyname('ceilingprice').asfloat; if stringgrid1.cells[2,i] <> '－' then begin if StrToFloat(stringgrid1.cells[2,i]) > tmphighprice then begin if copy(stringgrid1.cells[0,i],9,1) = ',' then tmpshowhighmsg:=tmpshowhighmsg #13#10 copy(StringGrid1.Cells[0,i],5,4) else tmpshowhighmsg:=tmpshowhighmsg #13#10 copy(stringgrid1.cells[0,i],5,6); end else if strtofloat(stringgrid1.cells[2,i]) < tmplowprice then begin if copy(stringgrid1.cells[0,i],9,1) = ',' then tmpshowlowmsg:=tmpshowlowmsg #13#10 copy(stringgrid1.cells[0,i],5,4) else tmpshowlowmsg:=tmpshowlowmsg #13#10 copy(stringgrid1.cells[0,i],5,6); end; end; end; if (trim(tmpshowhighmsg) <> '') or (trim(tmpshowlowmsg) <> '') then begin tmpfullstr:=tmpshowhighmsg #13#10 '高過設定的價格' #13#10 tmpshowlowmsg #13#10 '低於設定的價格'; application.messagebox(pchar(tmpfullstr),'警告視窗',mb_ok); end; end else begin exit; end; end; 發表人 - Chimera 於 2003/04/21 21:48:15

若檔案需要重傳 只需要用修改文章的功能就可以重新上傳檔案喔 (就是有一支筆一張圖的這個圖案) ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

引言: 多了tray icon,自動轉換股票名稱為股票代號，以及漲跌停提示 小弟現在正在想下一個想要做的主題，想玩玩看barcode，可是沒有印barcode跟掃描barcode的機器，有沒有模擬器啊?? < face="Verdana, Arial, Helvetica"> barcode只是一種字型所以用一般印表機即可列印，至於掃描的話， 就去便列商店掃一下就好了，就跟他說是銀行請你們開發測試的就 行囉 :P

無法下載檔案~