非常风气网www.verywind.cn
首页
delphi数组
Delphi
寻找
数组
arr[i]中 值相同的下标i
答:
for i := 0 to high(arr) do for j := 0 to high(arr) do begin // i已经被匹配过的,退出 if (i > j) and (arr[i] = arr[j]) then break;// 找到值相同的下标。if (i < j) and (arr[i] = arr[j]) then begin // 找到有相同值的索引i和j,输出 end;end;不追求...
delphi
中静态
数组
答:
wwarray:array[1..300] of integer;你定义
数组
时下标是从1到300,而你使用的时候 for x:=0 to PlateX do wwarray[x]:=0;是从下标0开始访问,下标0不存在,当然出错了
delphi 数组
赋值(字符串)问题
答:
edit1.text内容为144,288,468,612 这里edit1中的内容本身就是一个字符串,并不能直接赋值给字符串
数组
如果你的edit内容很规则,都是用","分割,可以这样 var sl:TStrings;i:integer;MyArray: array[0..3] of string;begin sl:=TStringList.Create;sl.CommaText :=edit1.text;for i := 0...
Delphi
字节转换字节
数组
答:
你的代码只读出那个字节又没做别的处理,因此不用Read了。因为你那三个字节都是连续的,因此可以用一个byte
数组
,如下:var F :File;Buf: array[0..2] of byte;begin AssignFile(F, '2.exe');try Reset(F,1);Buf[0]:=$74;Buf[1]:=$31;Buf[2]:=$5c;seek(F,300938);//从300938...
Delphi
一个
数组
里有好多数据,怎么去掉相同的数据
答:
不需要排序 直接循环的去处理循环的时候 将每次循环的东西 放到一个临时
数组
中 不过 需要先判断这个临时数组中是否已经存在当前的元素 如果不存在就放进去,存在就跳过
Delphi
一个
数组
如何复制另一个数组?
答:
Var A, B: Array Of Integer;Begin SetLength(A, 2); SetLength(B, 2); A[0]:= 1; A[1]:= 2; B:= Copy(A); // 整个
数组
都复制过去 B:= Copy(A, 0, 2); // 选择性复制 B[0]:= 2; ShowMessageFmt('A0:%D,B0:%D', [A[0], B[0]]); // A0:1,...
delphi
TStringList 如何存储
数组
(array)
答:
procedure TForm1.btn2Click(Sender: TObject);var data : array of String;tsl : TStringList;i: Integer;begin setLength(data,3);data[0] := '001';data[1] := '张三';data[2] := '男';tsl:=TStringList.Create;for i:=0 to Length(data)-1 do tsl.Add(data[i]);mmo1....
delphi
动态创建
数组
控件,该怎么处理
答:
以下是动态创建控件 TButton
数组
,进行处理的代码示例:procedure TForm1.Button1Click(Sender: TObject);var arrButton: array[1..10] of TButton; i: Integer;begin for i := 1 to 10 do begin arrButton[i] := TButton.Create(Self); arrButton[i].Parent := Panel1; ...
Delphi
中怎样把数据库某个字段的值赋给
数组
答:
假设你的Data字段所在的表的数据都在数据集ADODataSet1里,
数组
Data是string类型的数组,第一个下标为1,Data字段为string类型;var i: integer;begin ADODataSet1.First;for i:=1 to ADODataSet1.RecordCount do begin Data[i] := ADODataSet1.FieldByName('Data').AsString;ADODataSet1.Next;end;end...
DELPHI
字符串分割成
数组
答:
循环定位冒号以及紧接着的分号,用取字串函数copy取出即可(取出一个后将相应的冒号和分号替换成#)。
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
你可能感兴趣的内容
本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
©
非常风气网