Verbleibende Zeit anzeigen

[tail]

Zitat von urbanbruhin:

Zitat:

Was für einen Code meinst du?

den den du schon hast. einfach das ontimer ereignis...

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     //Nach einer Minute das Memo sperren
     Memo1.ReadOnly := True;
     Label2.Caption := 'Zeit abgelaufen';
     Label3.Visible := False;

     //gezählte Zeichen auf einem Label ausgeben
     lblZeichen.Caption := IntToStr(Length(Memo1.Text) - 2 * Memo1.Lines.Count);
end;

@jfheins: Das geht nicht, der Meldet mir:
[Error] UAnschlag.pas(72): ',' or ':' expected but '(' found