Programiści ! Pomóżcie początkującemu zapisać funkcję w Delphi StrToFloatDef z użyciem StrToFloat - tzn. zrobić taką funkcję z użyciem StrToFloat aby wykonywała na 'piechotę' to samo co StrToFloatDef - ponieważ ona nie występuje w Delphi 3 i bardzo proszę o łopatologiczne rozwiązanie. [???]
0
0
unit SysUtils;
//...
function StrToFloat(const S: string;
const FormatSettings: TFormatSettings): Extended;
begin
if not TextToFloat(PChar(S), Result, fvExtended, FormatSettings) then
ConvertErrorFmt(@SInvalidFloat, [S]);
end;
function StrToFloatDef(const S: string; const Default: Extended): Extended;
begin
if not TextToFloat(PChar(S), Result, fvExtended) then
Result := Default;
end;
0
Dziękuje za odpowiedź, próbowałem coś z helpem sklecić ale angielski nie ten a ponadto brak doświadczenia, jak mówi Tao Pang - 'programowania należy uczyć się na dobrze napisanych programach'.