SRL Archive - SRL Archives

function StrToFloatDef(s: string; def: extended): extended;
begin
  try
    Result := StrToFloat(s);
  except
    Result := def;
  end;
end;

function StrToBoolDef(s: string; def: boolean): boolean;
begin
  try
    Result := StrToBool(s);
  except
    Result := def;
  end;
end;

Edit: Also anything that is a string conversion should have a default… there's a lot more in ArrayLoader.scar in SRL

Nice, but shouldn't it be:

try
    Result:=StrToBool(s);
  except
    Result := def;

  try
    Result:=StrToFloat(s);
  except
    Result := def;
  end;

Yes, I changed it right after I posted. I guess you didn't refresh in time :(

Lol I thought I would never use a StrToBool but I did a few days ago.

Yea It's pretty useful when it comes to loading data files or saved settings.

YUp