关于字符串的操作.整理些技巧知识,如取得字符串长度,将字符串中的内容写入数组,取得字符串中指定的字符,将字符串改为首字大写,去掉字符串中的空格,替换字符串中的内容.希望对大家的学习有所帮助.

//取得字符串长度
var
mystr:string;//定义字符串
strlength:integer;
begin
setlength(mystr,5);//将字符串定义为5个字节的长度
strlength:=length(mystr);//取得字符串长度
showmessage(inttostr(strlength));//显示字符串长度
end;




//将字符串中的内容写入数组
var
A: array[0..79] of Char;
S: String;
begin
S := ’字符串转换测试’;
StrPCopy(A, S); //将字符串中的内容写入数组
Canvas.TextOut(10, 10, string(A));


//取得字符串中指定的字符
var
mystr:string;
begin
mystr:='Delphi7';
showmessage(mystr[3]);


//将字符串改为首字大写
begin
with Sender as TEdit do
if (Text = ’’)
or (Text[SelStart] = ’ ’)
or (SelLength = Length(Text)) then
if Key in [’a’..’z’] then Key := UpCase(Key);
end;


//去掉字符串中的空格
var
str1,str2:string;
begin
str1:=edit1.Text;
str2:=StringReplace ( str1, ’ ’, ’’, [rfReplaceAll] );
label1.Caption:=str2;
end;


//替换字符串中的内容
function ReplaceSub(str, sub1, sub2: String): String;
var
aPos: Integer;
rslt: String;
begin
aPos := Pos(sub1, str);
//取得子字符串的位置
rslt := ’’;
while (aPos <> 0) do begin
rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
Delete(str, 1, aPos + Length(sub1));
//删除要替换的字符串
aPos := Pos(sub1, str);
end;
Result := rslt + str;
//添加要字符串
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str,sub1,sub2,res:string;
begin
str:=edit1.Text;
sub1:=edit2.Text;
sub2:=edit3.Text;
res:=ReplaceSub(str, sub1, sub2);
showmessage(res);
end;