5,391
社区成员
发帖
与我相关
我的任务
分享數組操作問題！
有一報表的兩個字段
單位 數量
－－－ －－－
KG 50
PCS 100
支 60
KG 30
組
.
.
....
要求將數量按單位來累加保存兩個數組中！
最后用來打印出來成一個字串!
單位 數量
－－－ －－－
KG 50
PCS 100
支 60
KG 30
組
.
.
....
要求將數量按單位來累加保存兩個數組中！
最后用來打印出來成一個字串!
...全文
请发表友善的回复…
发表回复
angelior 2003-03-06
- 打赏
- 举报
用一下午时间，问题自己解决了！
散分。。。。。
散分。。。。。
angelior 2003-03-06
- 打赏
- 举报
NO!
ihihonline 2003-03-06
- 打赏
- 举报
不懂你的意思，随便写的，不保证正确，供参考
var
DWArray : Array of String;
SLArray : Array of Integer;
with DataSet do
begin
Close;
SQL.Clear;
SQL.Add(..)
Open;
First;
if RecordCount > 0 then
begin
SetLength(DWArray , RecordCount);
SetLength(SLArray , RecordCount);
Index := 0;
While Not Eof do
begin
DWArray[Index] := FieldByName('DWFieldName').AsString;
SLArray[Index] := FieldByName('SLFieldName').AsString;
Inc(Index);
Next;
end;
end;
end;
读：
StringValue : String;
For Index := Low(DWArray) to High(DWArray) do
begin
StringValue := DWArray[Index] ...//进行组合
end;
是你想要的吗？
var
DWArray : Array of String;
SLArray : Array of Integer;
with DataSet do
begin
Close;
SQL.Clear;
SQL.Add(..)
Open;
First;
if RecordCount > 0 then
begin
SetLength(DWArray , RecordCount);
SetLength(SLArray , RecordCount);
Index := 0;
While Not Eof do
begin
DWArray[Index] := FieldByName('DWFieldName').AsString;
SLArray[Index] := FieldByName('SLFieldName').AsString;
Inc(Index);
Next;
end;
end;
end;
读：
StringValue : String;
For Index := Low(DWArray) to High(DWArray) do
begin
StringValue := DWArray[Index] ...//进行组合
end;
是你想要的吗？
