string和array[0.12] of string

Question

1、...
2、length(trim(mystrarry));

Answer 1

mayStr:=Copy(myStrArray,1,Pos('#',myStrArray)-1);

Answer 2

myStr:String;//这是定义了一个字符串
myStrArray:Array[0..20] of String;//这句定义了21个字符串
区别太大了！第二个问题我不太明白：myStrArray不是一个字符串，而是一个字符串数组呀！是不是这个意思：
var
 i,PreCount,CurrentPos:Integer;
begin
 i := 0;
 CurrentPos := 0;
 PreCount := 0;
 while (CurrentPos = 0 ) and (i <= 20 ) do
 begin
   CurrentPos := Pos('#',myStrArray[i]);
   if CurrentPos = 0 then
     PreCount := PreCount + Length(myStrArray[i]);
   else
     PreCount := PreCount + CurrentPos -1;
   Inc(i);
 end;
 Result := PreCount;
end;

Answer 3

myStr:String;    //一个字符串
myStrArray:Array[0..20] of String;//相当于TString

Answer 4

myStr是一个字符串，而myStrArray是字符串数组。
第二个问题：你可以参看一下copy函数，觉得johnsonrao(johnson)解答的比较好。

Answer 5

NO.1:
 myStr:String;//这是定义了一个字符串
myStrArray:Array[0..20] of String;//这句定义了21个字符串
区别太大了！
   ....
 myStr := 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
 Edit1.Text := myStr[22];
 Edit1.Text := myStrArray[22];
//试一试就知道了；
NO.2:
mayStr:=Copy(myStrArray,1,Pos('#',myStrArray)-1);