chimera
初階會員
![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:62 回覆:78 積分:28 註冊:2003-03-22
發送簡訊給我
|
我記得以前我有看過一個可以丟入字串的參數然後回傳字元陣列的函數,但是我太久沒用了,所以忘記那個函數的名稱,有誰可以讓我回憶起來嗎??< >< >
|
mine
中階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:28 回覆:129 積分:56 註冊:2004-03-31
發送簡訊給我
|
PChar('String')??
strcopy(@array of char,Pchar('test'))
您要問的是這個嗎?? 搞不懂!搞不懂!永遠都搞不懂!! 發表人 - mine 於 2004/11/13 09:49:06
|
hagar
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download/upload/73824_smallhagar.jpg) 發表:143 回覆:4056 積分:4445 註冊:2002-04-14
發送簡訊給我
|
字串本身就可以當陣列來用, 例:
var
i: integer;
s: WideString;
begin
s := 'abc中文defg';
for i := 1 to Length(s) do
ShowMessage(s[i])
end;
|
chimera
初階會員
![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:62 回覆:78 積分:28 註冊:2003-03-22
發送簡訊給我
|
引言:
字串本身就可以當陣列來用, 例:
var
i: integer;
s: WideString;
begin
s := 'abc中文defg';
for i := 1 to Length(s) do
ShowMessage(s[i])
end;
因為我要對字串的某些字元作修改,所以想把他丟到另外的字元陣列,重新組出我要的字元陣列,然後組成字串再回傳,所以我需要這樣的函數
|
hagar
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download/upload/73824_smallhagar.jpg) 發表:143 回覆:4056 積分:4445 註冊:2002-04-14
發送簡訊給我
|
引言:
因為我要對字串的某些字元作修改,所以想把他丟到另外的字元陣列,重新組出我要的字元陣列,然後組成字串再回傳,所以我需要這樣的函數
一樣可以對原字串做修改
例將 s 字串的第二個字元改為 a:
s[2] := 'a';
|
geniustom
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:100 回覆:303 積分:260 註冊:2003-01-03
發送簡訊給我
|
補充一下..提供一些字串相關函數 ![]()
< class="code">
1、在 uses 中加入 strutils;
函數: 程序代碼:
//取字符串左邊的字符
function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
function LeftStr(const AText: WideString; const ACount: Integer): WideString; overload; //取字符串右邊的字符
function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
function RightStr(const AText: WideString; const ACount: Integer): WideString; overload; 取字符串任意位置的字符
function MidStr(const AText: AnsiString; const AStart, ACount: Integer): AnsiString; overload;
function MidStr(const AText: WideString; const AStart, ACount: Integer): WideString; overload;
2、在 SysUtils 中的字符串函數: 程序代碼:
//字符串連接函數
function StrCat(Dest: PChar; const Source: PChar): PChar; //字符串複製函數
function StrCopy(Dest: PChar; const Source: PChar): PChar; //字符串比較函數
function StrComp(const Str1, Str2 : PChar): Integer;
返回值 說明
<0 字符串 Str1 小於 Str2
=0 字符串 Str1 等於 Str2
>0 字體串 Str1 大於 Str2
3、在 System 中的字符串函數 程序代碼:
//計算字符串的長度
function Length(S): Integer; //取字符串任意位置的字符
function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;
4、字符串格式化函數 程序代碼:
//日期時間格式化顯示
function FormatDateTime(const Format: string; DateTime: TDateTime): string; overload;
function FormatDateTime(const Format: string; DateTime: TDateTime; const FormatSettings: TFormatSettings): string; overload; //金額格式化顯示
function FormatCurr(const Format: string; Value: Currency): string; overload;
function FormatCurr(const Format: string; Value: Currency; const FormatSettings: TFormatSettings): string; overload; //浮點數值格式化顯示
function FormatFloat(const Format: string; Value: Extended): string; overload;
function FormatFloat(const Format: string; Value: Extended; const FormatSettings: TFormatSettings): string; overload;
< >>
|
=程式是一種藝術 也是訓練自己的分析規劃=
=是段落分明 或是雜亂無章=
=是一言以敝 或是廢話連篇=
=是一目了然 或是艱深難懂=
體會這份藝術 您會了解另一份喜悅與成就
|
|
aquarius
資深會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:3 回覆:347 積分:330 註冊:2003-05-21
發送簡訊給我
|
我想你要找的是 StrPCopy 這個 Function. ...Aquarius
------ 水瓶男的blog: http://791909.blogspot.com
|