Felder zurücksetzen

[superstar025]

Hallo ich möchte mit einem button klick mehrere felder nicht löschen sondern auf den startwert zurück
setzen!!!

wie geht das??

mfg
matthias

[jim_raynor]

Was für Felder. Auf jeden Fall musst du dir die Startwerte merken oder fest im Programm verdrahten.

Am besten du machst ne neue Prozedur in dem die Startwerte gesetzt werden. Hat den Vorteil, dass du beim starten des Programms diese Prozedur aufrufen kannst und so die werte nur an einer Stelle ändern musst.

[superstar025]

ich gebe den feldern als Text schon 0,000 als startwert für das formular vor!
reicht das und kann ich diesen Startwert beim buttonklick wieder holen??

mfg matthias

[freak4fun]

hallo

wenn du zum Bsp schreibst

Code:

Edit1.Text := '0,000';

dann geht es nicht, aber wenn du es so machst

Code:

var
  Startwert: String;
begin
  Edit1.Text := Startwert;
end;

dann kannst du (wenn du die Variable/Konstante nicht änderst) in deiner Buttonprozedur drauf zugreifen

@ jim

deine variante find ich gut, ich werde si mal ausprobieren.

thx

mfg
freak

[jim_raynor]

Zitat:

Zitat von freak4fun

Code:

Edit1.Text := '0,000';

Warum sollte das nicht funktionieren? Es muss halt nur an der richtigen Stelle stehen.

Den Wert den du vorgegeben hast kannst du nicht ohne weiteres wieder herstellen.

deshalb definiere dir im Formular eine Prozedur:

Delphi-Quellcode:

TForm1 = class(TForm)
.
.
.
public
  procedure Reset;
end;

.
.
.
procedure TForm1.Reset;
begin
  Edit1.Text:='0,0000';
  Checkbox1.Checked:=false;
  .
  .
  .
end;

Dann kannst du diese Prozedur immer aufrufen, wenn das Formular zurückgesetzt werden soll.

[freak4fun]

hallo

hab mich unglücklich ausgedrückt wenn der meinen quellcode in formcreate schreibt ist bei der ersten variante beim verändern des Edit1.Text´s der Startwert weg.

mfg
freak

[ibp]

nö

...nö galt dem

Zitat:

ich gebe den feldern als Text schon 0,000 als startwert für das formular vor!
reicht das und kann ich diesen Startwert beim buttonklick wieder holen??

mfg matthias