如何把「中文字」拆開，不出現亂碼？    想不出來～ < src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯，學無止境!

Hi:    昨天回覆一篇文章中有關於中英文字的處理，供你參考    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40612 ---------------------- 新手上路，請多多指教 ----------------------

------
Fishman

qoo 你講的是不是像是以前在dos 時代…在中文字中間加入一個空白…這個字就會變成2 半了…卻不會有亂碼?     如果是顯示後…能將游標移至中文字中間加入空白…應該可以成功 好難 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">

引言: qoo 你講的是不是像是以前在dos 時代…在中文字中間加入一個空白…這個字就會變成2 半了…卻不會有亂碼? 如果是顯示後…能將游標移至中文字中間加入空白…應該可以成功 好難 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">

ddy 副站～愛說笑.. < src="http://delphi.ktop.com.tw/download/upload%5C33223_qoo.gif">網海無涯，學無止境!

剛剛看到別人寫法：     

 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    function Substr(str:string;start:integer;len:integer):string;
var
  i,strlen,x:integer;
  tmpstr:string;
  s:string;
begin
  strlen:=start len;
  tmpstr:='';
  i:=start;
  while(i=127)then
    begin
       s:=copy(str,i,2);
       tmpstr:=tmpstr s;
       i:=i 2;
    end
    else
      begin
       tmpstr:=tmpstr copy(str,i,1);
       inc(i);
      end;
  end;
  Result:=tmpstr;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text :=Substr('安全隧道技術(Secu通過',3,14);
end;    end.

網海無涯，學無止境! 發表人 - qoo1234 於 2003/11/19 12:44:45