segaa

複製內容到剪貼板

代碼:

procedure TForm1.Button1Click(Sender: TObject);
VAR sFile:TextFile;
tmp,str:String;
ipos,x:integer;
begin
memo1.Clear ;
tmp := '';
str := '';
x := 0 ;
ipos := 1 ;
OpenDialog1.Execute;
if OpenDialog1.FileName <> '' then
begin
AssignFile(sFile, OpenDialog1.FileName);
Reset(sFile);
while not Eof(sFile) do
begin
str := '' ;
Readln(sFile, tmp) ;
ipos := 1 ;
while ( ipos > 0) do
begin
iPos := Pos(',',tmp); //傳回逗號(,)字串於str字串的開始位置
if iPos = 0 then
begin
str := str + '"' + copy (tmp ,1,length(tmp) )+'"';
break
end else begin
str := str + '"' + copy (tmp ,1,ipos-1 )+'",';
tmp := copy (tmp,ipos+1,length(tmp));
end;
end;
inc(x);
memo1.Lines.Add(str);
end ;
CloseFile(sFile);


end;
end;

程式不是很漂亮
! _; q9 y' c( M8 _3 x大概是這樣嚕  , 其實如果不需要回寫的話1 X3 y- ^* _) y2 |
直接拿拆解出來的值來塞到 stringgrid 就可以用了

xming777

　春天,家乡的小山上漫山都是绿树，别提有多美了！看：神鬼传奇柳树、杨树、松树、苹果树、梨树……，满眼的绿意。尤其是柳树，抽出嫩绿的新芽，长出了长长的大辫子。地下城与勇士一阵风吹来，长长的辫子摇来摇去，好象是让人欣赏她呢！小草从土里钻出来，毛茸茸的绿色，给小山穿上了美丽的裙子。我们躺在它身上，象躺在母亲的怀抱中，温暖惬意。
+ \. Z) _9 V/ X9 A　　夏天，树木变得愈加茂盛成吉思汗满山绿树成荫。山上的小野花开了各式各样、芬芳扑鼻，给绿色的小山点缀上了缤纷的色彩。牛羊在山上悠闲地吃着草，吃饱了就卧在山坡上休息，给小山更增添了一丝光彩。9 t8 l' j' o0 V
　　秋天，嫩绿的小草逐渐发黄了，华夏树木的颜色也慢慢地由绿变黄。但是，小山却也别有一番风景。看！山上的一树树灯笼，红彤彤的是苹果树上的累累果实，黄澄澄的是梨，压得枝条都弯了腰。摘下一只，吃到嘴里，真甜呀！乡亲们带着笑意，采摘着丰收的果实，心里别提有多高兴了！一筐筐，一篓篓的水果成吉思汗带着乡亲们的希望，运出山，走向各地。

e23232w

大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-848208556 K4 a, ^0 G& c5 V6 B! _
QQ:99792190 44984055.
' c" O/ i- O) g! h2 O) J6 y薯条工作站,肯德基麦当劳专用机精品推荐, ^# Y) h# M7 S2 S2 F4 F

% V  c- e* E8 \商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
2 C* U8 ~  l* D 商品参数$ C. J9 l, {: ^+ j* K3 D3 q% t

• 商品名称：薯条工作站,肯德基麦当劳专用机
• 商品关键字： 薯条工作站, 肯德基麦当劳专用机
• 商品品牌：大连科信
• 商品型号：商用
• 商品等级：精品
• 市场价格：￥1550元
• 剩余数量：203台
• 关 注 度： 31233

& P- M( Q& j3 ]6 c 详细说明
! C# T5 _3 R' X# y7 u
$ Q, t  p+ Z6 g; x
; e3 N5 R8 ^+ F3 Y1 O

# H+ w6 r3 x  W' l$ A+ `$ t# ?

               

台式薯条工作站 * ^% ~  x8 `/ W* V) i0 @ 型号:ST-01 : z- _! Z* v! M: t 保温：红外线保温 / w  e5 E7 m% g 型号：KX-JG-1 0 S+ K; @1 k/ D( {. J# N0 v 规格：800x710x650mm , S5 y: C! B  z0 e; Q& c 电压：220V $ q$ O" ?9 a1 N! Q: p 功率：0.6KW 4 _  B7 n& E9 K0 U2 p8 E2 y 价格：1550元             + C* ^2 W+ v1 A- O! r

' Y, O* z! f( l- F  l

/ r" B' U! l4 R7 t 立式薯条工作站 8 z6 C' u3 L- y$ G! G 型号: ST-02 2 V3 @0 I, A$ I  X2 z 保温：红外线保温 % O1 \3 |1 x+ C7 k# }8 p 型号：KX-JG-2 : |0 [- y. `! m: f% _- Y# ] 规格：1000x700x1570mm - I  m% [% @  _7 |5 N" f% _ 电压：220V ; y6 X& K) g: U% F/ a( Y1 N2 r 功率：0.75KW 0 b; G3 |1 x% R" N) I" ? 价格：3980元            . V% m; V( f! x% _' L6 |  ]& [" k- g

5 b/ `9 S# Y' G

青松智慧

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
$ i4 L7 H' S! ]$ ~4 h* t& M1 e2 M6 g3 i, }' c9 h6 F# r

& |5 b; \0 {$ _" R: m7 R& M: d! nwww.okdhc.cn
+ x3 |: Z1 Q% h2 _& y+ `8 a: c9 N' M' t8 k, M

0 o* m0 @8 S6 _6 g3 N( e& Z
5 C9 F+ L$ F* {4 x5 }4 C" I
' m) Q+ h# r, N
3 z7 O8 }9 n& x
6 x0 V' H+ m8 @2 U, {) U/ `
2 {! B9 i; l- l# T! v1 J7 w+ W8 w8 W6 Q2 b; _
; t# {+ s; W  }1 o7 W
魔兽世界插件  热血江湖外挂   传奇外传外挂
8 I+ |% h3 X5 [! U冒险岛外挂    DNF外挂

g1tv8g

剑侠世界外挂; P- z* N! z' c1 p5 M: F4 Y" O6 ~
# Y  y  O. i; B+ x6 R) z3 @  k
游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
# o0 y- \8 f" k3 R
. ~& m$ `3 e4 g8 Q剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 9 l1 K0 M; e  Q! G
* A; {3 W& |' t" V9 Z" E: K
剑侠世界免费外挂
( n0 Y6 c* Q- G, d. i8 @  J& \; h  J5 ^2 A/ @
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
2 q, B7 ~1 K0 a; A- F
8 Q. }4 Y3 Y; k; X4 h+ i剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
& H1 k& g& V% ]$ c, x5 O1 F剑侠世界+ z. X  k0 n0 }% g. m3 G: `4 h
* e( X' j5 ?, E# M, ?) }  E' `
www.hyfittings.com.cn   www.hyfittings.com.cn
5 r% |3 v) B6 ]6 H/ v" U) C9 A% p! Y- \4 F5 G9 u. m
5 t0 g7 J7 A) W! S; H5 z9 C; h

/ ^+ b7 i- Z  Z

xming777

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。7 G  O; r% g! q9 }

0 X5 B6 b7 E; @  [$ ^6 O日子就这么一天天星尘传说外挂过下去。
% i, _2 `+ r3 z9 I- r% c2 ~* q1 W
$ e, l1 f1 G* n6 e某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。# Q  y- L) C; K# g
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
8 M6 s9 ?7 x. H* w3 ~终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

fack10

支持！8 g9 `8 V2 T; q

) @6 N0 s8 N9 p" x
( t( h' u- }9 K  |' Z6 d; d$ R* y; x7 ~5 v; E7 K

. I. g/ s4 o; p, i& A, s3 y. }& X6 S  L. p, S8 K

/ I4 I9 o2 r- G6 s2 ^* F
4 X' h9 c. l+ K( w1 b3 W% E$ f. r8 Z2 S/ |
6 T' P/ P' ~4 v
$ U) _# a9 O- s+ R: ^7 N7 H

5 Z4 Q( L; a0 H3 Q7 D8 K4 ?: L8 T( s! t, t6 n) V
/ N/ P) P( Q3 Y7 F( {2 p! Y
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

fack10

支持！/ e4 g5 x, |: N9 W" z8 r" r
5 d9 ]7 l# y: f- r" B& Y$ k
# u) `% F: V0 s

( P$ s2 X) I$ I( H# t! C( x# n) }  x. t+ H
  L% q& T1 }5 I% u$ U5 c  a6 o, Q2 F
( J9 E  L8 v0 d8 i8 o4 U

; Z0 V' Q' ~" n4 o/ b+ j  ^& T: B" L8 L8 n4 g) h  s
) B! `; t5 R8 M
8 \+ j  c2 d' D+ `

& T! O  o" A) s' {$ v
- V5 @, v' y6 N* R4 n0 {1 {# P7 G
9 \- j3 d+ T/ V+ T5 C矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管