网友zswang提供的几个函数

zswang(zs)　(2001-4-23 14:52:00) 得0分 //我回送你几个我的宝宝函数
procedure ZsDataSetToTreeView(mDataSet: TDataSet; mTreeView: TTreeView);
{ 将数据源转换成可视树 }
type
TArrayTreeNode = array of TTreeNode;
var
vFieldCount: Integer;
vStringList: TStringList;
procedure pZsDataToTreeNode(mArrayTreeNode: TArrayTreeNode;
mIndex: Integer; mValueList: string);
var
vTreeNode, vTempTreeNode: TTreeNode;
vStr, S, vTemp: string;
I: Integer;
vArrayTreeNode: TArrayTreeNode;
begin
vTemp := mValueList;
vStringList.Text := mValueList;
vStr := #13#10;
vTreeNode := nil;
if mIndex < vStringList.Count then begin
if (Pred(mIndex) >= Low(mArrayTreeNode)) and (Pred(mIndex) < High(mArrayTreeNode))then
vTreeNode := mArrayTreeNode[Pred(mIndex)];
vStr := vStringList[mIndex];
end;
vArrayTreeNode := mArrayTreeNode;
with mDataSet do while not Eof do begin
S := FieldByName(FieldDefs[mIndex].Name).AsString;
if (vStr = #13#10) or (vStr <> S) or (mIndex = Pred(vFieldCount)) then
begin
vTreeNode := mTreeView.Items.AddChild(vTreeNode,
FieldByName(FieldDefs[mIndex].Name).AsString);
vStr := S;
vTempTreeNode := vTreeNode;
SetLength(vArrayTreeNode, vFieldCount);
vArrayTreeNode[mIndex] := vTempTreeNode;
for I := Succ(mIndex) to Pred(vFieldCount) do begin
vTempTreeNode := mTreeView.Items.AddChild(vTempTreeNode,
FieldByName(FieldDefs.Name).AsString);
vArrayTreeNode := vTempTreeNode;
end;
vStringList.Clear;
for I := 0 to Pred(vFieldCount) do
vStringList.Add(FieldByName(FieldDefs.Name).AsString);
vTemp := vStringList.Text;
Next;
pZsDataToTreeNode(vArrayTreeNode, 0, vTemp);
vArrayTreeNode := nil;
end else begin
pZsDataToTreeNode(vArrayTreeNode, Succ(mIndex), vTemp);
end;
end;
end;
begin
vStringList := TStringList.Create;
mTreeView.Items.Clear;
vFieldCount := mDataSet.FieldCount;
mDataSet.First;
pZsDataToTreeNode(nil, 0, '');
vStringList.Free;
end; { ZsDataSetToTreeView }
////////放在TForm1.ComboBox1KeyUp用
function ZsComboBoxVisualInput(mComboBox: TComboBox;
mCase: Boolean = True): Boolean; { ComboBox可视化输入 }
var
I, T: Integer;
begin
Result := False;
if Assigned(mComboBox) then
with mComboBox do for I := 0 to (Items.Count) do
if (Pos(Text, Items) = 1) and (Text <> Items) then
begin
T := Length(Text);
Text := Items;
SelStart := T;
SelLength := Length(Items) - T;
Result := True;
Break;
end
else if not (mCase) and (Pos(UpperCase(Text), UpperCase(Items)) = 1) and
(UpperCase(Text) <> UpperCase(Items)) then
begin
T := Length(Text);
Text := Items;
SelStart := T;
SelLength := Length(Items) - T;
Result := True;
Break;
end
end; { ZsComboBoxVisualInput }
///////比如:VariantToText(Table1['Field1;Field2']);
function VariantToText(mVariant: Variant; mDivision: string = ','): string; { 将变体类型转换成文本返回 }
var
vVarType: Integer;
vVarLow: Integer;
vVarHigh: Integer;
I: Integer;
begin
Result := '';
vVarType := VarType(mVariant);
case vVarType of
varSmallint .. varString: AppendStr(Result, mDivision + VarToStr(mVariant));
else if vVarType and (varArray or varVariant) <> 0 then
begin
vVarLow := VarArrayLowBound(mVariant, VarArrayDimCount(mVariant));
vVarHigh := VarArrayHighBound(mVariant, VarArrayDimCount(mVariant));
for I := vVarLow to vVarHigh do
AppendStr(Result, mDivision + VariantToText(mVariant));
end else AppendStr(Result, mDivision + VarToStr(mVariant));
end;
Delete(Result, 1, Length(mDivision));
end; { VariantToText }
///////没有什么好说的
function TextToVariant(mText: string; mDivision: string = ','): Variant; { VariantToText反函数 }
var
vLeft, vRight: string;
I, L, T, vCount: Integer;
begin
Result := Null;
vCount := 0;
vRight := mText;
I := Pos(mDivision, vRight);
L := Length(mDivision);
T := Length(mText);
while I > 0 do begin
vLeft := Copy(vRight, 1, I - 1);
vRight := Copy(vRight, I + L, T);
I := Pos(mDivision, vRight);
Inc(vCount);
end;
if vRight <> '' then Inc(vCount);
case vCount of
0:
1: Result := mText;
else
Result := VarArrayCreate([0, Pred(vCount)], varVariant);
vRight := mText;
I := Pos(mDivision, vRight);
vCount := 0;
while I > 0 do begin
vLeft := Copy(vRight, 1, I - 1);
vRight := Copy(vRight, I + L, T);
Result[vCount] := vLeft;
I := Pos(mDivision, vRight);
Inc(vCount);
end;
if vRight <> '' then Result[vCount] := vRight;
end;
end; { TextToVariant }