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