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;

程式不是很漂亮
$ _! o# Y' w/ w: H) k% g大概是這樣嚕  , 其實如果不需要回寫的話
1 Z/ [! d' z: x& u直接拿拆解出來的值來塞到 stringgrid 就可以用了

xming777

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

e23232w

大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-848208559 M8 r8 ~7 A9 `
QQ:99792190 44984055. ( X% Y6 E) r& }/ `) E
薯条工作站,肯德基麦当劳专用机精品推荐
6 F' h% p; a9 m4 F6 [0 T! f, b3 w6 f, Z, ~" K5 c
商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs8 S6 P7 A+ k7 Q5 P
商品参数
; e. {6 [& a2 A8 d

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

" x+ V# L  D5 U9 n( s- J+ h
详细说明' t- U4 Q1 U; R% y! {4 p2 m

7 N) e3 j% i4 E) L4 v+ j/ s( E/ Z0 I" o2 j. l/ C

- O' T  B4 [! F9 {

               

台式薯条工作站 & N  n! \: R& l 型号:ST-01 9 U- k( b  w8 @- o 保温：红外线保温 6 ]  ^& [2 z' y7 P$ }0 C% Z* { 型号：KX-JG-1 & I2 s& |( s$ L6 [+ F- q- A 规格：800x710x650mm 4 |- \0 V1 Y% G; g7 P5 @ 电压：220V , p( @' z& d$ B0 J* d 功率：0.6KW 1 b0 _' O! Z/ n! ] 价格：1550元             ; `3 t/ R$ m' @+ }1 Q

* t; q# s& p% D: E( W

: W. ]1 q7 b5 o8 p/ z2 ~. N 立式薯条工作站 . O$ w7 H+ e& ^" `/ _- n9 F 型号: ST-02 ( _+ n2 m1 U  ~ 保温：红外线保温 , Z* M7 H; [; P6 _7 v  k! k: {1 _ 型号：KX-JG-2 9 n: _* G# r; X$ [% S( X( e 规格：1000x700x1570mm - T0 }1 Z4 d6 y! s0 L3 X! D 电压：220V . N3 |" q' P2 D- _% N 功率：0.75KW 5 J0 R% \) X8 b& I  k. o8 c% J 价格：3980元            / t% u) C9 w; m$ H% s

3 q% x9 T6 Q3 P! R; p

青松智慧

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!, s# T4 I) `( ~6 k  S* [; G

4 H% Y4 K/ W# k& T8 }3 w7 y' v, T
2 m8 f- F" C* y! z1 e- e7 Cwww.okdhc.cn" J4 Z& ]7 R4 o3 }. }

. u) v+ _! {" d2 Z2 A6 @* v5 B
1 M0 C' w( x5 z  Y& ~5 n8 \  V3 |% G  J% S$ h
. U. i* X7 K, x

" U* z# Y( Q% @) d8 Q
( O5 p* u: E8 X0 v1 G9 X$ \, r' j4 I2 P: S! L
2 _: M6 Y8 C" F0 D% j' L
6 A" m2 a6 L; `& S$ `+ |
魔兽世界插件  热血江湖外挂   传奇外传外挂
* L# i; N' D9 l; @4 l冒险岛外挂    DNF外挂

g1tv8g

剑侠世界外挂5 H' ~! v" l# a' p) D& v; Y( d# s

) I  t! F3 o- R+ X" c3 E: k游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
" q" A; u( n; I/ h3 }, I/ z) W" D/ G  g) y9 t8 ^, \
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 4 x) a1 G& R/ w

( m3 c" r# t2 ~0 A0 R剑侠世界免费外挂6 @# Z: e! ^: y( C8 T. ]

9 n6 ?! r1 h# F) m& a8 G为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
% w2 t7 N- p' X1 H* C6 }& W- p9 {2 r: `9 E- T3 `2 k6 A
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址* L" K4 x, f0 }& K1 U3 @3 V+ v) f
剑侠世界- T% Z% R7 i/ }  h, i) R9 E

5 A+ \; {( z$ H8 Rwww.hyfittings.com.cn   www.hyfittings.com.cn  b7 ^. r$ W* S( w" G

' ?+ H8 a- G' H$ O5 m1 p1 U* |
& F1 Y5 r" `; _, }! o) E9 t# [0 w  E5 O6 E3 V5 @! G! w$ x

xming777

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。8 N: e  F& x3 X+ A% f" v
! W) g0 E% @8 S  \6 L8 {# x
日子就这么一天天星尘传说外挂过下去。
# l1 W( n/ y# L7 g7 E
! Z5 D6 F8 B0 i9 p) _某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
  G& J' ]; r4 n1 n5 }& Y5 w: J我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。% s* S2 L9 }/ Z$ J. L" E
终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

fack10

支持！! M8 n# v7 a& {4 v

1 o" W/ x7 _  K+ M0 S) A: t- }) m( B* |* X% {8 y; S

2 w/ F. }: G/ K) F. l- q! p# i/ F; A' s( Y, C8 [

- {" D' h  F6 B# j2 ~& I. d# ~) z, w0 [2 O
0 E: D5 ], R3 I# m9 D

7 H: g& ]& x3 V1 ]! N8 R8 {
* T' {0 U  B, m: o& l, C( k2 S1 m2 m, t6 k# O4 r

5 P+ G" Q/ U% }6 p  K
( P* ~3 X1 y3 F& W& Q
2 V4 T5 h8 Z3 xQ345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

fack10

支持！, f$ r  c4 W1 q! `
  V8 Q; g$ H2 _- V: D  y: ?. n" Q
! m, ]9 l8 \  \; C5 |- P

0 p( c$ U* u0 ?" J* e+ {5 m3 w3 ^, Q2 O% D7 A
& i8 l# ~$ G5 U$ {) d) \
. N: @- g0 b, A/ A! N( ]

, ^3 N0 l, K- y) B  g6 A: Q0 c
/ k8 {# n/ N7 b% s# R& p8 z2 J
2 z% L6 z% o' g3 B3 L1 u  S! [6 d$ o: E( w; `, D" e/ F

! K& p4 b9 w0 |, Z/ f  P$ m* E' m( ^6 k, w0 q

, V; d# g8 s2 d6 _3 U7 Y3 `矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管