{
Read a string from ini file
}
function ReadIniStr(Mode:Integer; FName,SecName,VarName:String):String;
var b:Boolean; i,p,t:Integer;
begin
 ReadIniStr:='';
 FName:=Trim(FName);
 SecName:=Trim(SecName);
 VarName:=Trim(VarName);
 if Length(FName)>0 then
 if Length(SecName)>0 then
 if Length(VarName)>0 then begin
  FName:=DaqFileRef(FName,'*.cfg');
  if FileExists(FName) then begin
   t:=ReadIniSection(text_New,Mode,FName,SecName);
   for i:=0 to text_Numln(t)-1 do begin
    p:=Pos('=',text_Getln(t,i));
    if p>0 then
    if IsSameText(Trim(Copy(text_Getln(t,i),1,p-1)),VarName) then begin
     ReadIniStr:=Trim(Copy(text_Getln(t,i),p+1));
    end;
   end;
   b:=text_Free(t);
  end;
 end;
end;
