全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2495
推到 Plurk!
推到 Facebook!

copy與pos無法合用??

答題得分者是:Skyer
jck1
一般會員


發表:53
回覆:67
積分:24
註冊:2002-05-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-09-05 10:01:10 IP:211.22.xxx.xxx 未訂閱
procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  b: integer;
  c: string;
begin
  a:= '1abc#13#101abc#13#10';
  b:= POS('#13#10', a);
  while(b > 0)do begin
    c:= copy(a, 1, b - 1);
    memo1.lines.Append(c);
    a:= copy(a, b, length(a));
    b:= pos('#13#10', a);
  end;
end;
上面程式 pos在算長度時,是將#13\算 1 個長度 但copy在算長度時,卻把#13算 3 個長度 請問如要以#13#10來分割字串 有啥好方法?
Skyer
高階會員


發表:43
回覆:111
積分:120
註冊:2002-04-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-09-05 10:37:20 IP:211.23.xxx.xxx 未訂閱
引言:
procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  b: integer;
  c: string;
begin
  a:= '1abc#13#101abc#13#10';
  b:= POS('#13#10', a);
  while(b > 0)do begin
    c:= copy(a, 1, b - 1);
    memo1.lines.Append(c);
    a:= copy(a, b, length(a));
    b:= pos('#13#10', a);
  end;
end;
上面程式 pos在算長度時,是將#13\算 1 個長度 但copy在算長度時,卻把#13算 3 個長度 請問如要以#13#10來分割字串 有啥好方法?
如果是您上面的程式的話,可試試以下這種方式
a:= '1abc#13#101abc#13#10';
Memo1.Lines.Text := a;
這樣就會自動依 #13#10 拆行了 -- Skyer
------
--
Regards,
Skyer
jck1
一般會員


發表:53
回覆:67
積分:24
註冊:2002-05-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-09-05 10:50:40 IP:211.22.xxx.xxx 未訂閱
引言: [quote] 如果是您上面的程式的話,可試試以下這種方式
a:= '1abc#13#101abc#13#10';
Memo1.Lines.Text := a;
這樣就會自動依 #13#10 拆行了 -- Skyer
我沒有要把他放到memo裡去 用memo只是想秀出切出的資料
cubi
初階會員


發表:56
回覆:94
積分:35
註冊:2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-09-05 11:54:45 IP:61.58.xxx.xxx 未訂閱
procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  b: integer;
  c: string;
begin
  a:= '1abc#13#101abc#13#10';
  b:= POS('#13#10', a);
  while(b > 0)do begin
    c:= copy(a, 1, b - 1);
    memo1.lines.Append(c);

    //a:= copy(a, b, length(a));
    a:= copy(a, b 6, length(a));
    //因為依這種情況,會將#13#10視為字串,所長度為6
    //所以應該將b 6        b:= pos('#13#10', a);
  end;
  
end;
上面程式 pos在算長度時,是將#13\算 1 個長度 但copy在算長度時,卻把#13算 3 個長度 請問如要以#13#10來分割字串 有啥好方法? 發表人 - cubi 於 2002/09/05 11:55:39
Skyer
高階會員


發表:43
回覆:111
積分:120
註冊:2002-04-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-09-05 13:45:36 IP:211.23.xxx.xxx 未訂閱
OK~ 剛仔細看了一下,發現您對 # 有錯誤的用法喔.    #13 本身就是個字元,代表 CR 而 '#13' 就是 '#13' 是一個字串 所以當您要用 # 時,請不要加上 Quote 此外,您程式有個小 bug 我順便修掉了,以下是程式  紅色部份是我修改過的 < class="code"> procedure TForm1.Button1Click(Sender: TObject); var a, c: string; b: Integer; begin a := '1bcd'#13#10'1bcd'#13#10; b:= POS(#13#10, a); while(b > 0)do begin c:= copy(a, 1, b - 1); memo1.lines.Append(c); a:= copy(a, b 2, length(a)-b-1); b:= pos(#13#10, a); end; end; end. -- Skyer
------
--
Regards,
Skyer
jck1
一般會員


發表:53
回覆:67
積分:24
註冊:2002-05-23

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-09-05 13:53:57 IP:211.22.xxx.xxx 未訂閱
引言: OK~ 剛仔細看了一下,發現您對 # 有錯誤的用法喔. #13 本身就是個字元,代表 CR 而 '#13' 就是 '#13' 是一個字串 所以當您要用 # 時,請不要加上 Quote 此外,您程式有個小 bug 我順便修掉了,以下是程式 紅色部份是我修改過的 < class="code"> procedure TForm1.Button1Click(Sender: TObject); var a, c: string; b: Integer; begin a := '1bcd'#13#10'1bcd'#13#10; b:= POS(#13#10, a); while(b > 0)do begin c:= copy(a, 1, b - 1); memo1.lines.Append(c); a:= copy(a, b 2, length(a)-b-1); b:= pos(#13#10, a); end; end; end. -- Skyer
原來是我把換行字元給用錯了 謝謝Skyer 啦
系統時間:2024-03-29 6:58:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!