Ausgabe verzögern

[API]

Zitat von Luckie:

Ganz simpel wäre ein Sleep. Nur ist dann so lange die Oberfläche nicht bedienbar.

Sleep einfach kombininieren mit einem Application.ProcessMessages

Delphi-Quellcode:

  procedure ResponsiveSleep(SleepTime: LongInt);
  Var
    FinalTick : QWord;
  begin
    FinalTick := GetTickCount64 + SleepTime;
    while GetTickCount64 < FinalTick do
    begin
      Sleep(10);
      Application.ProcessMessages;
    end;
  end;

[DieDolly]

Zitat:

Sleep einfach kombininieren mit einem Application.ProcessMessages

Kann man machen. Aber ProcessMessages ist meiner Meinung nach etwas, was man mit Bedacht nutzen sollte.
Dann doch lieber die Arbeit in einen Thread auslagern und dort Sleep nutzen.

[Der schöne Günther]

Zitat von API:

Sleep einfach kombininieren mit einem Application.ProcessMessages

Nein, bitte nicht.

[API]

Zitat von Der schöne Günther:

Zitat von API:

Sleep einfach kombininieren mit einem Application.ProcessMessages

Nein, bitte nicht.

Warum nicht? Das sieht stark nach einem Hobby-Projekt aus. Manchmal kann man auch einen Einzeiler verwenden, es muss nicht immer davon ausgegangen werden, dass das Programm hunderte von Anwender haben wird.

[Der schöne Günther]

Nur weil es Hobby ist muss man nicht gleich zur "Ist zwar nicht so dolle, und ich verstehe auch nicht so wirklich was abgeht, aber es scheint halbwegs zu klappen"-Lösung nehmen.


Und "länger" ist eine Version mit z.B. einem Timer auch nicht

[Luckie]

Auch wenn Ulrich ulrich72 heißt, sieht mir das doch eher nach einer Schulaufgabe aus. Und da sollte die Lösung auch zum Niveau passen. Ein Sleep löst die Aufgabe und ein Timer wäre ein nice-to-have. Hier mit Threads arbeiten zu wollen, wäre zu viel des Guten, denke ich.

[TiGü]

Plot Twist: Uli ist der Informatiklehrer!

[OLDIE1950]

Mit DELPHI XE7

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// https://www.delphipraxis.net/6620-delay.html
procedure Delay(msecs: Longint);
var
  targettime: Longint;
  Msg: TMsg;
begin
  targettime := GetTickCount + msecs;
  while targettime > GetTickCount do
    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
    begin
      if Msg.message = WM_QUIT then
      begin
        PostQuitMessage(Msg.wParam);
        Break;
      end;
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
  var a, h, Af, U : Real;
begin
  a:= strtofloat(Edit1.Text);
  h:= a/2*sqrt(3);
  Af := (a*a);
  Af := Af/4;
  Af := Af*sqrt(3);
  U := 3*a;
  Delay(500);
  Edit2.Text := floattostr(Af);
  Delay(500);
  Edit3.Text := floattostr(U);
  Delay(500);
  Edit4.Text := floattostr(h);
end;

end.

[DieDolly]

Eine Frage bleibt. Warum sollte man solche Ausgaben verzögern?
Hat mMn keinen Sinn. Und -er wird ein Programm auch nicht wenn man große Rechenoperationen vortäuscht.