L loster2003 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-30 #2 试一下这个，改动一下应该可以的 function replacing(sub1, sub2, s: string):string; var i: integer; begin repeat i := pos( sub1, s ) ; if i > 0 then begin delete( s, i, Length(sub1)); insert( sub2, s, i ); end; until i < 1; Result := s; end;
试一下这个，改动一下应该可以的 function replacing(sub1, sub2, s: string):string; var i: integer; begin repeat i := pos( sub1, s ) ; if i > 0 then begin delete( s, i, Length(sub1)); insert( sub2, s, i ); end; until i < 1; Result := s; end;
G Genl Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-30 #3 装TntControl这套控件。。。。 用其中的TntSysUtils单元。。 原先SysUtils下的那些字符串函数都有Unicode版本 比如 StrPos StrPosW StrCopy StrCopyW
装TntControl这套控件。。。。 用其中的TntSysUtils单元。。 原先SysUtils下的那些字符串函数都有Unicode版本 比如 StrPos StrPosW StrCopy StrCopyW
西 西山居士 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-30 #4 to Genl: 请问，TntControl哪里有下载啊？
H hfghfghfg Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-30 #5 var ws: Widestring; begin ws := 'asdas啊1dwvecercecfsa啊1'; ws := StringReplace(ws, '啊1', 'ok', [rfReplaceAll, rfIgnoreCase]); showmessage(ws); end;
var ws: Widestring; begin ws := 'asdas啊1dwvecercecfsa啊1'; ws := StringReplace(ws, '啊1', 'ok', [rfReplaceAll, rfIgnoreCase]); showmessage(ws); end;
G Genl Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-30 #6 http://home.ccci.org/wolbrink/tnt/delphi_unicode_controls.htm
W wind2000 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-30 #7 procedure TForm1.Button1Click(Sender: TObject); var sTmp : String; begin label1.Caption := 'aflsdjkl地flkjfsa在lfkjals地'; sTmp := StringRePlace(label1.Caption,'地', 'A',[rfReplaceAll]); ShowMessage(sTmp); end;
procedure TForm1.Button1Click(Sender: TObject); var sTmp : String; begin label1.Caption := 'aflsdjkl地flkjfsa在lfkjals地'; sTmp := StringRePlace(label1.Caption,'地', 'A',[rfReplaceAll]); ShowMessage(sTmp); end;
