-


- 2


TBDosEnvironment.GetDosEnvCount: Word;

begin

Result := 0;

if Assigned(FDosEnvList) then Result := FDosEnvList.Count

end {GetDosEnvCount};

 

function TBDosEnvironment.GetDosEnvStr(Const Name: String): String;

var i: Integer;

Tmp: String;

begin

i := 0;

Result := '';

if Assigned(FDosEnvList) then while

i <FDosEnvList.Count >do

begin

Tmp := FDosEnvList[i];

Inc(i);

if Pos(Name,Tmp) = 1 then

begin

Delete(Tmp,1,Length(Name));

if Tmp[1] = '=' then

begin

Delete(Tmp,1,1);

Result := Tmp;

i := FDosEnvList.Count { end while-loop }

end

end

end

end {GetDosEnvStr};

end.

. DosEnvCount DosEnvList , , '' , .DFM ).