zamiana real na time

witam! mam pewien problem :-/ ... chcialbym zamienic liczbe typu real powiedzmy: 12,5687899 na format czasu : 12h 56min... prosze o pomoc... [sciana]

funkcja FormatDateTime od tego jest.

Gothmog napisał(a)

funkcja FormatDateTime od tego jest.

Ta funkcja jest od czego innego. Samemu sobie trzeba przeliczać, niestety.

widze ze nawet nie wiesz ze zmienna typu TDateTime i Real to prawie jedno i to samo. Mozna przypisac TDate Time do Real i odwrotnie bez utraty danych. Sprawdz sam w Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var dt : TDateTime;
 r : real;
begin
  dt := StrToTime(Edit1.text);
  r := dt;
  edit2.text := FormatDateTime('hh:mm:dd',r);
end;

gdzie w edit1.text jest przechowywany czas w postaci hhss

Sprawdziłem. Zwracam honor.

Gothmog napisał(a)

bez utraty danych

A to już zależy od ustawień kompilatora; włączona dyrektywa $REALCOMPABILITY ({$REALCOMPABILITY On}) sprawia, że Real = Real48 (a więc 6 bajtowy typ zmiennoprzecinkowy znany z Turbo Pascala), natomiast przy wyłączonej tej dyrektywie (ustawienie domyślne) Real = Double.

thx... :)