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;

程式不是很漂亮
$ q2 f/ p7 [) n/ i- T& e大概是這樣嚕  , 其實如果不需要回寫的話' }% U' |3 m: x  b* m4 x/ a, O4 u* p6 U
直接拿拆解出來的值來塞到 stringgrid 就可以用了

xming777

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

e23232w

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

, P0 w9 r, `- y/ ~9 `商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
$ @6 }; s" A- l 商品参数* l1 W6 b+ p" ], n3 B" H* `6 _

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

6 R: b3 l# c* ^( N+ G0 M1 ~
详细说明
0 E% n4 a- G( F! C% u5 U6 _3 |- m& K" f! n/ D% J* b
" T6 r6 k) q5 G7 h

; \% g( i7 E8 Q

               

台式薯条工作站 # Z( a) p/ R, a- l9 `& g- L( {* h 型号:ST-01 9 }: e. e. E. \4 L9 t 保温：红外线保温 - {) \, s( E* N 型号：KX-JG-1 9 j0 J. j& ]5 U: _ 规格：800x710x650mm 9 p9 }6 N/ Q) |* @; b 电压：220V ; P4 K0 W$ |# F$ X4 j 功率：0.6KW   n( \2 u# s, r 价格：1550元             0 E" ]# W0 W2 a% P

/ ]% Y# ]' c5 K' e

$ e: X' P4 C9 S0 S, E8 u/ d; v/ e( L 立式薯条工作站 ; U: ?3 `: h6 T2 y 型号: ST-02 * o; ~3 }$ v7 A/ d- b/ a& b% ~ 保温：红外线保温 ' E- `, z' G3 {: I; C# m 型号：KX-JG-2 , d2 d. v6 N5 X; p6 c! X 规格：1000x700x1570mm # x9 [* l! ]1 C. u$ y 电压：220V ! m3 Z% c9 f# t1 j 功率：0.75KW ; o" q8 N0 r7 b, T 价格：3980元            1 j) k. u  a7 M# d! l- Q

0 ^, F; J2 Y* u$ i

青松智慧

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
  ^& Z" l8 |2 t3 {3 }, M+ E
- L- S4 y# a2 |$ T
  e' @& }! y  f) E! pwww.okdhc.cn
2 f5 j/ ?/ K* W/ v4 V0 [
1 T) b) d. ~% ^* a, X: d& R1 x0 L
$ y, z% v/ \- ]: j
$ v7 ~, E1 z6 c6 m' [) b. V' }7 o& `9 T1 {( V! W7 H7 V6 K6 Q, c% q1 R
% D3 {! P' @( v; I/ K. X9 N
: N9 o1 e' r3 K+ p8 L
' ~% ^0 Y' j1 Q7 D; e

# W& q0 i7 V: C, ?* Z& o
' ~% T+ d! {9 w8 ?# {魔兽世界插件  热血江湖外挂   传奇外传外挂% @" M! G. ?4 T- I% j
冒险岛外挂    DNF外挂

g1tv8g

剑侠世界外挂, l  A* I- h' r5 J1 F1 p
0 D! |+ k& i' f" S
游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新5 Y( }  Z# @" W4 `1 U2 }5 @' j
' s; a9 M0 {; r3 ?; O
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。
* C% X% q) C) _* E% a( [
+ Q  ^* q$ o6 b剑侠世界免费外挂
+ T" f( u# i# H3 A2 e# G9 {/ D/ h; f/ F8 B
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
; L0 S" W/ {. p. f  V! _6 }) a6 d, U
7 Z8 e7 }" z& Q3 C% x* P* R剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
3 U4 Q; Z! m; |# w" G' k剑侠世界
% J: L$ i. Y3 |' Q: [  D
, i* D3 Y% Z+ c$ `2 t$ F7 O3 hwww.hyfittings.com.cn   www.hyfittings.com.cn
0 M8 l4 |  W2 c2 d$ R7 {0 X% V$ n5 j: v( c' b9 j# [

" `0 Z% e9 K# ~* }; Y7 O' K7 n- V$ ^2 S! _( o, [  D

xming777

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
0 G- j! Y# F: C5 P) A2 V
, e: l$ F& m, j8 B/ B3 U, N1 u3 |日子就这么一天天星尘传说外挂过下去。4 n7 G# ]' n6 [: N1 g

2 Y" p8 T9 ]$ F# l5 o! t$ e' ]某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
, q/ G  v6 Y8 Y+ k我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
6 A  G1 G$ i7 A$ G! O1 @% q% O) U终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

fack10

支持！* W6 i: [+ l* Y) y& }+ G

; }& e, U* g/ A' J" E% ?
# \0 q$ W3 m: Y  e9 F' p" {& ~/ G& d" f

# J4 p0 g% F9 f! p* {2 H
7 c$ z8 _; j1 d& F6 x+ {2 H/ P6 J8 L, G& M% c* }* ?

' K  b0 g5 T! |5 C& L' J* Q! [/ Q. ?3 t

: ^7 q3 e; \* F1 w7 u. `, e
9 X4 E; s$ ?. q1 A0 ^% a* {6 J6 U% c7 }: a2 W& D

) Q" F* |4 o& o6 d# V8 a
- V7 R; F" F% ZQ345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

fack10

支持！
& k( H' r! ~9 S7 e
( B: x6 |4 ]$ H. H( [& l9 R0 w5 [* ~5 C, J2 T
# T( F; f; I7 `0 h% T8 ?5 ^

* U5 [8 J# K$ m" L" y7 K
, Y; S; P- K: ^1 }3 E# C- M, ~
  f0 m' [% P! u; b' _2 o' M* S/ K& y, v; ^6 \" G) t  K: {

5 {, S5 W; n- E& B. W5 ~8 J, c  ^) z
6 Z+ u4 Z+ Z" \6 L
) L- \6 H9 x1 b  G( y( g$ l" a; E) q" F1 Q$ J: {+ c4 M, `

  t( u/ K8 H3 U4 E- H1 @8 \( m# m' }6 `7 t! A0 V/ Y
矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管