Delphi » Operacje liczbowe » Konwersja

CelsiusToFahrenheit

Adam Boduch
  • 2006-03-02 12:40:05
  • 2010-10-31 18:27:10
  • 1 komentarz
  • 2559 odsłon
CelsiusToFahrenheit
Moduł: StdConvs
```delphi function CelsiusToFahrenheit(const AValue: Double): Double; ``` [[Delphi/Funkcje|Funkcja]] przelicza wartość temperatury celsjusza z fahrenheita. Parametrem musi być wartość typu [[Delphi/Double]] odpowiadająca temperaturze: 
uses StdConvs;

procedure TForm1.MyButtonClick(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to 40 do
  begin
    memTemp.Lines.Add(IntToStr(I) + ' stopni celsjusza to ' +
      FloatToStr(CelsiusToFahrenheit(I)) + ' stopni fahrenheita');
  end;
end;

Zobacz też:

StdConvs Konwersja Delphi

1 komentarz

Coldpeer

O, nawet nie wiedziałem, że taka funkcja istnieje :)