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;

程式不是很漂亮 ; x3 s  z4 Q2 K+ a
大概是這樣嚕  , 其實如果不需要回寫的話5 T! N2 N2 x9 l6 L
直接拿拆解出來的值來塞到 stringgrid 就可以用了

xming777

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

e23232w

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

3 e1 P9 h: ]: w" w商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
" g* j4 ?/ R) P. m 商品参数
+ e* Z! t! v5 G% n% s

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

! B1 Q& i) [# m. ^4 F3 O% f! y- t 详细说明
2 O( m- G6 b- {: I  V1 \# n9 g( f% G8 A* g1 ?7 C

, X4 H9 W' A: B& A& K+ J. d4 u

) z5 O& T' W4 \$ F( I

               

台式薯条工作站 % s$ |7 [: K0 K* g% K  _0 v0 O 型号:ST-01 2 j& v! {& L6 D9 H/ z7 i 保温：红外线保温 ' `/ K: J5 O8 _* p5 C 型号：KX-JG-1 ! h4 |7 ?/ P$ M& X8 |, l' t 规格：800x710x650mm - {' ?, U7 X, x3 R1 r* H 电压：220V % X" Z: q# R1 x( ]+ L/ ] 功率：0.6KW 5 m! o( _. Y5 G 价格：1550元             * |2 v# x6 h) q& ^* G" E: p# n

/ }1 r0 X2 o. z4 S6 Z2 c

7 D" G/ a3 p% x3 c 立式薯条工作站 1 N# x  g4 |2 {4 v: s 型号: ST-02 5 u/ b5 M7 T" m2 d! F( s 保温：红外线保温 1 G% O! F/ B; i( R5 Q! w 型号：KX-JG-2 4 N5 w% P# |' q1 l* O: V  e1 ` 规格：1000x700x1570mm - `+ C1 L4 u1 b! W. f2 I: W* n7 d2 V 电压：220V 1 m8 m2 |, l5 o( J7 \0 m5 ? 功率：0.75KW . A3 ^# J' R5 `  t 价格：3980元            / G- X& z1 ?; Z: ^9 p

7 D" e) o0 [) m; u! A+ t" W& ?2 c

青松智慧

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
0 V+ A4 _; y' D5 k. s$ \  ]! j5 N) v% a' ^

3 |3 T% v: W* Dwww.okdhc.cn. a: n. c) |2 _+ [# k
; W5 j% I6 y0 f1 K% O

8 _$ b% x4 m4 S, z( @3 _: m; {0 w% U9 ~/ G- a

8 ]1 F: [, [  C- g1 p
4 f/ I) t4 a: a4 |# u5 s) b/ S) x: S( l1 _: [! u: \6 M% R0 U1 N- s
6 M; P, \4 Y, t9 A, z
: {: \2 U9 T% I9 |! b1 c" z( N
8 X5 f. x, j/ C; i) i  Y8 c
魔兽世界插件  热血江湖外挂   传奇外传外挂0 `2 s. x) g& K) o
冒险岛外挂    DNF外挂

g1tv8g

剑侠世界外挂
7 ~' V) e; G  A+ Z, {
% g2 C. y1 w( O* r' a游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新" z- a% }/ [3 V( Y* M& A  v

# u! t, U: G0 k9 h4 Q) t剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。
# |) t& ^9 q$ ~8 A+ L9 c2 A9 y* L3 V3 v  p% }$ d# p4 G
剑侠世界免费外挂- H% o  b/ A0 S  }

# z( T( X4 M1 o; r8 g! @* p& f为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
4 F5 d) R4 c: |" Z
. W2 k7 S% f0 j剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
1 ]* l( i, y7 h" L: Q3 ~$ D4 t! X) t剑侠世界/ @8 q5 p. E" l+ P

+ T" [2 u* M6 H% q# W. uwww.hyfittings.com.cn   www.hyfittings.com.cn
3 P2 z: M' V; W3 F  ~8 [2 C/ R/ P' @% M+ m3 y0 u

! H* l4 {2 ?4 A/ S& Q1 b9 e% i
4 o7 K# Y: M1 M

xming777

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
/ U' F2 [$ Z. z. t' |8 u
, c6 o8 B9 L5 r2 Z" E2 _日子就这么一天天星尘传说外挂过下去。
2 I& b6 P) n7 o' U
% y" V% ^( Y) U+ G2 [: z某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。9 x2 E% m7 b2 F# y5 X
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
2 H+ K0 i7 X( b/ H. s/ U终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

fack10

支持！3 C& k# V9 Y. q0 @9 u
8 a9 ]8 Y+ k/ ?; f* p8 N7 w
4 ?! j5 }7 Z2 `2 t6 ~0 V

  |# l/ R$ a' g. X5 m0 S3 a
( S* D$ H/ [3 j/ |( q3 Z$ L: _9 Y
7 S" R* y1 ~  W8 w% M
* P, O1 P; ^% o
. S( `1 Z- c! }5 A. w6 z- P0 w
5 V3 {% `) j( I9 Y" |/ q8 c. g
8 z7 C1 j# Q2 }+ ?* ]0 x/ `4 d& y, X% z

6 e2 Q' Q5 e* s+ ]3 Y+ E0 r' B/ p
: k; h0 B: o2 S2 ?, g, m5 [" r
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

fack10

支持！+ K# C% N  \' A% K* w3 c0 b

1 I5 h* |: `3 |7 ?8 h7 ]& B( G) m+ p
$ G- M; S8 S; B# q& m8 I7 r! d
9 @2 Q! G8 o; n. ~# R" c2 K
! O9 F$ Z$ K' V' C7 ^: y2 ~0 j

" I! i& t: L4 B/ k7 ~0 e0 K4 b7 T9 i9 e: ^

, d# w7 ?; M! \& Z
7 A0 E+ h" W4 W5 b- L1 x' R# G
& }/ l1 D1 X! P# M* g7 `$ T! `! Y( ?9 t& x1 Y

2 l2 V5 |5 O2 G4 x4 n& U! B- B; R7 {' ]4 R2 @
矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管