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;

程式不是很漂亮 - {- R9 R  R! {
大概是這樣嚕  , 其實如果不需要回寫的話) S0 Q* q# Y3 j& W+ {
直接拿拆解出來的值來塞到 stringgrid 就可以用了

xming777

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

e23232w

大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-848208556 |3 v9 g4 k" V) i, t7 R
QQ:99792190 44984055. ! M1 T+ w: k7 Z: h6 ~8 y
薯条工作站,肯德基麦当劳专用机精品推荐
, \0 R6 w; E6 ]0 C( b% U/ V& `  r3 {$ R, F$ S2 N2 ^8 F
商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
4 C( O; N6 }- g1 A 商品参数
/ c8 u* I1 {0 L0 w& B

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

% g4 g! J: O+ \0 U) r; }
详细说明
. D9 Q. z; t& S% F* `
7 p$ t9 z( O- |" N  V2 L5 {3 F$ B9 a1 n% W- u3 s

, |: Z2 @% `  b2 Q& F+ n

               

台式薯条工作站 # I1 j1 i& R  @. H) m8 ?( @ 型号:ST-01 , [' o% Z( |0 C% T5 ~ 保温：红外线保温 & [% n9 H  G7 e% j4 t 型号：KX-JG-1 0 ?' A2 D0 x5 R6 b 规格：800x710x650mm $ c0 q1 c  [. R* Y$ ?( Y  \% J 电压：220V   ]6 E  t$ c! g3 s 功率：0.6KW   T% K+ L2 o2 r+ r2 [/ J( I+ }( k 价格：1550元             / ~/ {/ v' [* d3 _/ o2 c

! ^7 B- L2 y& q* u/ f/ w6 U

: K) f6 w% @9 ? 立式薯条工作站 ; g3 R5 K- @1 t5 g 型号: ST-02 3 l+ r6 P' ^* _4 u  p 保温：红外线保温 % h0 H2 ^& E# V, j- [+ Z) T 型号：KX-JG-2   f/ K/ \. o5 n( J5 B; J- k 规格：1000x700x1570mm / }% ^# c0 s- ?, Z. [3 t 电压：220V : Z( j/ i6 T5 C, O: \& F  z6 b- L 功率：0.75KW : {# v2 B  g1 ]* l  d; @ 价格：3980元            * x1 H: q+ J: z1 G& P; i2 C

. P; U/ S, w, H" @

青松智慧

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
9 C- k" |9 `$ u, E0 x* w
, M1 j) X4 t5 `
/ P  ^) ~' Z6 Q0 |$ Y1 J! j4 }www.okdhc.cn
$ J3 s0 f3 F& ]" K  {) b7 f. V7 U7 p3 a  \
( S, J% n) j6 u3 y

( ^" y5 Y& s' f* o! w$ U$ g' b5 K4 v( j9 n

/ R! o* f9 N" V; L' M% L0 Q4 \: S- V" Y  k- }
" p9 q6 Y5 V2 {" L4 F+ {8 ]& ]7 W

7 {& u, \/ i7 e  e, E7 [3 G# y0 U! }9 L0 S
魔兽世界插件  热血江湖外挂   传奇外传外挂$ `0 {" P  t& P
冒险岛外挂    DNF外挂

g1tv8g

剑侠世界外挂0 u5 P7 T1 e+ Y; g7 ?

( }* L! e! N1 E, O; t& ]游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新; r5 `: j7 u- {) _5 O. b: h# v, M
$ s; M; m4 U! M
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。
% P+ l6 C, ]) l+ A" F8 J* X& B* w& a& w* D' T: q
剑侠世界免费外挂
6 g% g7 g5 ~3 X( D) w/ U
( e$ f$ n$ \7 d9 ]* n为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
, Z; p0 {. A" N! K% k/ c3 x' r$ ?6 b* ^1 E) B
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
4 Z2 N! ~9 A4 I0 B剑侠世界/ n# H' X3 j6 P! f! y6 J3 \& y
, ^9 ]1 `! G: m6 }, f2 y1 J6 l7 w
www.hyfittings.com.cn   www.hyfittings.com.cn
1 L0 g- S2 B5 T2 I+ B# A: r9 `9 t; {0 n1 z( f8 @0 }

0 E# P. N* Q/ L5 C* ~" q! {  ^& W% u$ F, \  C3 t

xming777

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
; g. S6 Q, S) ^" h8 `5 {4 K5 r$ S" M3 [0 c
日子就这么一天天星尘传说外挂过下去。
4 g1 i$ Y, \" r6 ?, J
: {% V; H7 G- b' c) s) M某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
+ Y8 T) i  {# g. T$ n) W  n. x我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
& O: a! b  k& n6 u# [% R6 o终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

fack10

支持！1 a' g6 t3 O4 e. ?

7 Z8 i$ \1 j+ f# z
4 Z. k9 m& D8 b
6 Z  Z/ u1 ?/ ?" e8 M- v5 h3 G/ n- l& S3 t: D
4 B* A+ ?) C* |" i1 U7 O
) L9 `7 i8 }7 @) y6 {, Q
! i: j$ L' F" x* P# D  u* P4 w2 M

5 c/ E& z0 Y7 K' v  L2 T: p- }% C5 s( d/ n
+ L$ p7 _9 ~! }5 z  ]) `! z* d: u9 v, n2 e# Q/ ?  M' m, r$ x
5 ~* N7 k( C9 f& Z6 l7 L
, h( W) r% a" \

# j5 w; L# s, j1 GQ345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

fack10

支持！1 q4 d- E* @* B  V3 x* \8 q8 F

. ^+ F0 b: |8 U/ f4 e2 l
, Y9 Q# O( I2 B  n7 X$ i$ C) s
  V9 W  W! j+ i+ C  V3 y* Z
# D. W5 Z; G: \( _- w( e- a
: F6 H" P. @/ h: w; s& w! c3 ~, ^$ V* d5 h
5 D1 r$ V( c/ y+ u5 b

! O( C4 X9 O% l) O3 F" p; e# W6 L, [
- l5 \% X. J0 Y( z: g4 |9 V" T! Z
+ d# f$ H* ?# |9 C# Q$ s* D3 d4 P* ?

  {, G1 z1 G0 v) ]' E; x
& Z# Q" a' x1 k* j% d3 C% @! J矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管