delphi 中一个String 的字符怎么截取其中的内容!

Question

delphi 中一个String 的字符怎么截取其中的内容! 

Answer 1

str[1..n] 是字符
取出来用 copy(str, 第几个, 取几个)

Answer 2

copy()例子:  str:='abcdefg'copy(str,3,3);
取出来的就是:cde

Answer 3

var
  str1: string;
bggin
  str1:= 'ABCD';
  caption:= str1[3];//'C'
end;

Answer 4

DELPHI 中的STRING 实际保存的是一个字符数组（引用类型的），只不过这个数组是从1开始计数的。 

Answer 5

var
str:string
begin
str:='string';
caption:=leftstr(str,2); //'st'
end;

Answer 6

procedure TForm1.Button2Click(Sender: TObject);
var
  str:string;
begin
  str:='中1国';
  ShowMessage(midstr(str,1,1));  //安全读取有错误处理
end;
//显示  <中>procedure TForm1.Button2Click(Sender: TObject);
var
  str:string;
begin
  str:='中1国';
  ShowMessage(copy(str,1,1));  //无错误处理  速度快
end;
//显示 空 

Answer 7

使用leftstr和rightstr时记着uses部分的strutils
 copy 则不需要 呵呵 初学弄斧

Answer 8

var
  str1: string;
bggin
  str1:= 'ABCD';
  caption:= str1[3];//'C'
end;///同意

Answer 9

初学 如何知道uses调用哪个 ？

Answer 10

可以用copy,copy(str,   第几个,   取几个)

Answer 11

有一个复杂一点的//要求结果为456
var
 i: integer;
 str: string;
 Begin
 str:='123456789';
 i:=length(str);
 delete(str,1,pos('456',str));
 delete(str,pos('456',str),length(str));
  edit1.text:=str; 
 End;