请教DElphi高手:如何将字符数组初始化

1、直接逐个初始化字符数组:字符数组的初始化,最容易理解的方式就是逐个字符赋给数组中各元素.char str[10]={ 'I',' ','a','m',' ','h','a','p','p','y'}; 注意:如果花括号中提供的字符个数大于数组长度,则按语法错误处理;若小于数组长度,则

1、如果是静态数组,定义的时候必须指定长度,如:var array: array[0..2] of string = ("hello","world","yes");(注意,局部变量不能初始化).2、如果是动态数组,则:var array: array of string; i: integer;begin SetLength(array, len); //len是运行时动态指定的. //然后遍历数组进行初始化,如 for i := low(array) to high(array) dobegin array[i] := xxxxxxxx; //初始化的值.end;

type TDigits = array[0..1,1..7] of integer;type PDigits =^TDigits;procedure TForm1.ArrayInit(A:PDigits);var i,j:integer;begin for i0 to 1 do begin for j1 to 7 do begin A[i,j]+j; end; end;end;

字符数组应该可以有3种方式1 arr:array [0..99] of char;100个字符,第一个序号为0,如arr[0]2 s:string; setlength(s,100);100个字符,第一个序号为1,如s[1]3 p:pchar; getmem(p,100);100个字符.第一个序号也是为1 下面是一个例子 var letter:array[1..100]of char; 定义100包含100个字符型的数组letter

不用赋值的啊,字符串本来就是一个一维数组啊.举个例子:var str : String; i : Integer;begin str := 'ABCDEFG'; for i:=1 to Length(str) do begin showmessage(str[i]) end;end;上面这个例子就是将字符串变量 str 中的字符一个一个的用showmessage显示出来.

在delphi7中,字符串本身就是数组,所以没有必要进行转换,可以直接使用的.需要注意的是,字符串数组中,第一个字符的下标索引号为1,而不是常见的0.见以下例程:procedure tform1.button1click(sender: tobject);var s:string; achar:char;

for I :=0 to XX dobegin copy();end;

procedure TForm1.Button1Click(Sender: TObject);conststr = '万一的 Delphi 博客';varStaticArr: array[0..255] of Char;begin{直接赋值即可}StaticArr := str;{显示}ShowMessage(StaticArr); {万一的 Delphi 博客}end;{把字符串给动态(字符)数组

放入 TStringList 排序 一种简单的方法:Procedure TForm1.BitBtn1Click(Sender: TObject);Var alist: TStringList;Begin alist := TStringList.Create; Try alist.Add('AAA'); alist.Add('BBB'); alist.Add('CCC'); alist.Add('EEE'); alist.Add('DDD'); Application.

我理解你是想把字符串'12 34 56'分解成:data[1]='12'data[2]='34'data[3]='56'是这样吗? procedure TForm1.Button1Click(Sender:TObject);var data:TStrings;begin data := TStringList.Create; data.CommaText := '12 34 56'; // 此时data[0]='12' data[1]='34' data[2]='56'end;

相关文档

电脑版