Esperar a que termine un proceso y luego continuar

[ecfisa]

Hola Lepe.

Es correcta tu observación. Usar el método Synchronize le da mas estabilidad al código, así que por más que haya sido solo un ensayo, se lo agregamos al amigo pokexperto1.

Código Delphi [-]
type
  TSpell = class(TThread)
  private
    FText    : string;
    FCount   : Integer;
    FTime    : DWORD;
    FInterval: Cardinal;
    Memo     : TMemo;
  public
    constructor Create; reintroduce; overload;
    procedure Execute; override;
    procedure WriteChar;
    property Interval: Cardinal read FInterval write FInterval;
    property Text: string read FText write FText;
  end;

constructor TSpell.Create;
begin
  inherited Create(True);
  FTime  := GetTickCount;
  FCount := 0;
end;

procedure TSpell.WriteChar;
begin
  Memo.Text := Memo.Text + FText[FCount];
end;

procedure TSpell.Execute;
begin
  inherited;
  while FCount <= Length(FText) do
  begin
    if GetTickCount - FTime > Interval then
    begin
      Inc(FCount);
      Synchronize(WriteChar);
      Application.ProcessMessages;
      FTime := GetTickCount;
    end;
  end;
end;

procedure SpellText(const Texto: string; Memo: TMemo; const Interv: Integer);
var
  spell: TSpell;
begin
  spell := TSpell.Create(True);
  try
    spell.Memo     := Memo;
    spell.Text     := Texto;
    spell.Interval := Interv;
    spell.Execute;
  finally
    spell.Free;
  end;
end;

Saludos

[mamcx]

No entiendo porque el enruedo con un timer...

Delphi es un lenguaje imperativo... Hacer que una cosa siga a la otra es lo mas normal del mundo.

[ecfisa]

Hola mamcx

Tal vez su proyecto necesite evitar las esperas activas entre la aparición de los caracteres y por eso recurrió al timer (no sé, se me ocurre...). De otro modo tenes razón en que no tiene sentido, se podría arreglar simplemente con Sleep.

Saludos

[mamcx]

No.... para que sleep? para que esperar de forma fija? Si la operacion es secuencial, que complicacion hay?

[ecfisa]

Empezado por mamcx

No.... para que sleep? para que esperar de forma fija? Si la operacion es secuencial, que complicacion hay?

Por que interpreté que deseaba un efecto de teletipo, si no no le veo sentido a usar un timer... Ahora si lo que desea es poner un caracter detrás de otro, enseguida se lo solucionamos con un simple

Código Delphi [-]
 Memo1.Text := Texto;

Saludos