AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Demoversion Programm beenden

Ein Thema von blondervolker · begonnen am 31. Jan 2012 · letzter Beitrag vom 26. Apr 2012
 
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

AW: Demoversion Programm beenden

  Alt 31. Jan 2012, 10:47
Direkt in das Anwendungsverzeichnis zu schreiben ist eine ganz doofe Idee - oder muss der Anwender zwingend als Administrator arbeiten

Und das ist ja so durch die Brust ins Auge gehüpft und am Fuß wieder rausgesprungen:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
  // Zähler erhöhen, ok
  Inc(Zaehler);
  // Zähler in ein Edit-Feld schreiben (Int->Str) ... öh soll der User das ändern können???
  Edit1.Text := IntToStr(Zaehler);
  // Wieso denn jetzt wieder Str->Int, du hast doch Zugriff auf Zaehler???
  if Edit1.Text = '1then Label1.Caption:='1.Versuch';
  if Edit1.Text = '2then Label1.Caption:='2.Versuch';
  if Edit1.Text = '3then Label1.Caption:='Testzeitraum ist beendet!';
  if Edit1.Text = '3then Button2.Caption:='Ende!';
  // Form1 ist eher fehleranfällig. Besser:
  // HauptForm schließen: Application.MainForm.Close
  // Diese Form schließen: Self.Close oder einfach Close
  if Edit1.Text = '4then Form1.Close;
end;
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
  Inc(Zaehler);
  Edit1.Text := IntToStr(Zaehler);
  case Zaehler of
    1: Label1.Caption:='1.Versuch';
    2: Label1.Caption:='2.Versuch';
    3:
      begin
        Label1.Caption:='Testzeitraum ist beendet!';
        Button2.Caption:='Ende!';
      end;
    4: Close;
  end;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz