Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Reset Button (https://www.delphipraxis.net/104017-reset-button.html)

xXcomputerrookieXx 26. Nov 2007 10:20


Reset Button
 
Hi!

Wir müssen für die Schule ein Programm in Informatik schreiben.Unser Gruppenthema lautet: Rentenversicherungsnummer.Das Programm kann alles(Prüfzifferberechnung etc.)
Wir wollen nun noch einen Reset Button einbauen,der Alles wieder in den Anfangszustand versetzt und man wieder eine neue Nummer eingeben kann.

Wie kann man das machen?



Gruß

mkinzler 26. Nov 2007 10:23

Re: Reset Button
 
Button der im Click Event in alle Edits usw. mit Standardwerte setzt.

inherited 26. Nov 2007 10:44

Re: Reset Button
 
Oder du startest die Anwendung neu.
Erst mit ShellExecute oder Konsorten das Programm starten, dann sich selbst schließen lassen. Den Pfad zu deiner Anwendung kriegst du mit ParamStr(0) raus.

DeddyH 26. Nov 2007 10:45

Re: Reset Button
 
Bei der Erfassung für jeden Satz das Programm neu starten? Halte ich persönlich für suboptimal.

STS301 26. Nov 2007 10:51

Re: Reset Button
 
zb.bei enem Edit

Delphi-Quellcode:
edit1.text:='';//oder das gewünschte eingeben
label1.caption:='du wolltest wissen wie man es schreibt!';
ich hoffe das hat dir geholfen

xXcomputerrookieXx 26. Nov 2007 13:31

Re: Reset Button
 
Ich danke euch allen sehr herzlich!

Hat sofort geklappt das ganze!



Gruß,


andre

TechnikerHC 5. Mär 2008 14:10

Re: Reset Button
 
kann ich auf diese weise auch eine stringgrid zurücksetzen? wenn ja, wie?
cheers

Larsi 5. Mär 2008 14:12

Re: Reset Button
 
mit clear!

taaktaak 5. Mär 2008 14:14

Re: Reset Button
 
MIt CLEAR ???? Mein Delphi kennt kein StringGrid.Clear :shock:

s-off 5. Mär 2008 14:17

Re: Reset Button
 
Gibt es ja auch nicht, höchstens Rows.Clear oder Cols.Clear, was prinzipiell TStrings.Clear auslöst.

taaktaak 5. Mär 2008 14:21

Re: Reset Button
 
Logo! Wollte ja nur eine etwas ausführlichere Aussage provozieren :wink:

s-off 5. Mär 2008 14:22

Re: Reset Button
 
:mrgreen:

Larsi 5. Mär 2008 14:25

Re: Reset Button
 
ja sry hab noch nie was mit nem stringgrid gemacht und hab geraten :) Das geht nämlich auch mit anderen Komponenten dachte ich mir^^

TechnikerHC 5. Mär 2008 15:26

Re: Reset Button
 
ich hab das jetzt probiert wie ihrs gesagt habt, also ungefähr so:
Delphi-Quellcode:
stringgrid1.cols.Clear;
stringgrid1.Rows.clear;
da kommt dann aber bei mir ne fehlermeldung:
Zitat:

[Fehler] Unit1.pas(132): '[' erwartet, aber '.' gefunden
[Fehler] Unit1.pas(133): '[' erwartet, aber '.' gefunden
was mache ich da falsch?
cheers

Larsi 5. Mär 2008 15:28

Re: Reset Button
 
vielleicht muss man boch sagen welche zeile, dann würde ichs vielleicht mit destroy machen fall es das gibt also stringgrid1.cols.destroy oder stringgrid1.rows.destroy!

s-off 5. Mär 2008 15:32

Re: Reset Button
 
Die Fehlermeldung sagts doch schon.
Und wenn man mal die Hilfe benutzen würde, dann würde man auch sehen, was der Compiler genau erwartet...

TechnikerHC 5. Mär 2008 15:40

Re: Reset Button
 
hilfe bringt mich nich weiter...

s-off 5. Mär 2008 15:42

Re: Reset Button
 
Zitat:

Zitat von TechnikerHC
hilfe bringt mich nich weiter...

Dann solltest Du Dich vielleicht besser vor den Fernseher setzen - vielleicht wird das ja mal irgendwann bei Löwenzahn erörtert...

TechnikerHC 5. Mär 2008 15:43

Re: Reset Button
 
Zitat:

Zitat von s-off
Zitat:

Zitat von TechnikerHC
hilfe bringt mich nich weiter...

Dann solltest Du Dich vielleicht besser vor den Fernseher setzen - vielleicht wird das ja mal irgendwann bei Löwenzahn erörtert...

gay?

Larsi 5. Mär 2008 15:45

Re: Reset Button
 
Schön nett bleiben, an Alle!
Was ist denn jetzt noch dein Problem nimm einfach Destroy und gut ist oder schreibe stringgrid1.rows/cols.clear[1] oder so falls das geht!

TechnikerHC 5. Mär 2008 15:53

Re: Reset Button
 
also mit clear gehts aber immer nur eine reihe oder spalte und mit destroy klappt es garicht...

edit:gibt es also einen befehl um die stringgrid wieder in anfangsstatus zu versetzen?

Larsi 5. Mär 2008 15:56

Re: Reset Button
 
wie wärs mit ner for schleife? dass er die einzelnen zeilen durchgeht?

s-off 5. Mär 2008 15:56

Re: Reset Button
 
Zitat:

Zitat von TechnikerHC
Zitat:

Zitat von s-off
Zitat:

Zitat von TechnikerHC
hilfe bringt mich nich weiter...

Dann solltest Du Dich vielleicht besser vor den Fernseher setzen - vielleicht wird das ja mal irgendwann bei Löwenzahn erörtert...

gay?

Die Hilfe ist da, um genutzt zu werden!

Schon die Codevervollständigung zeigt Dir, dass in eckigen Klammern der Index der entsprechenden Zeile bzw. Spalte zu übergeben ist.
Wenn Du nicht in der Lage bist, die Dir zur Verfügung gestellten Hilfsmittel ordentlich einzusetzen, dann solltest Du Dir ernsthaft Gedanken darüber machen, ob das Programmieren wirklich das Hobby Deiner Wahl ist.

Desweiteren solltest Du Begriffe wie 'gay' aus Deinem Index streichen; zumindest in Bezug auf dieses Forum.

Fussball-Robby 5. Mär 2008 16:00

Re: Reset Button
 
Hier gehts ja recht freundlich zu...
Um dem mal ein Ende zu setzen, mal ein Beispiel wie man ein Stringgrid leeren könnte
Delphi-Quellcode:
procedure ClearSG(Stringgrid:TStringgrid);
var
  irow,icol : Integer;
begin
  with StringGrid do
    for irow := 0 to RowCount -1 do
      for icol := 0 to ColCount -1 do
       Cells[irow,icol] := '';
end;
ps: Über die Hilfe/Forensuche hätte man sich das aber auch leicht zusammenreimen können...

DeddyH 5. Mär 2008 16:01

Re: Reset Button
 
Oder so, wie Larsi vorgeschlagen hat:
Delphi-Quellcode:
var i: integer;
begin
  for i := StringGrid1.FixedRows to StringGrid1.RowCount -1 do
    begin
      StringGrid1.Rows[i].BeginUpdate;
      StringGrid1.Rows[i].Clear;
      StringGrid1.Rows[i].EndUpdate;
    end;
end;

Larsi 5. Mär 2008 16:02

Re: Reset Button
 
[OT] Bin grad wo drauf gekommen ka wo und jetzt sieht man immer die avatar bilder, wie gehen die weider weg? [OT]

s-off 5. Mär 2008 16:04

Re: Reset Button
 
Zitat:

Zitat von Larsi
[OT] Bin grad wo drauf gekommen ka wo und jetzt sieht man immer die avatar bilder, wie gehen die weider weg? [OT]

Erweitertes Profil bearbeiten -> Anzeigen der Avatare

Larsi 5. Mär 2008 16:06

Re: Reset Button
 
Und wie bin ich dann daraufgekommen dass sie angezeigt werden, also im erweiterten profil war ich grade nicht^^

TechnikerHC 5. Mär 2008 16:13

Re: Reset Button
 
Zitat:

Zitat von DeddyH
Oder so, wie Larsi vorgeschlagen hat:
Delphi-Quellcode:
var i: integer;
begin
  for i := StringGrid1.FixedRows to StringGrid1.RowCount -1 do
    begin
      StringGrid1.Rows[i].BeginUpdate;
      StringGrid1.Rows[i].Clear;
      StringGrid1.Rows[i].EndUpdate;
    end;
end;

das klappt sehr gut! kannst du mir das ma mit worten erklären, weil ich das so noch nich kenne und sonst vor meinem lehrer morgen ziemlich dumm da stehe, wenn der mich fragt wie ich das gemacht habe...
cher

Fussball-Robby 5. Mär 2008 16:19

Re: Reset Button
 
Delphi-Quellcode:
var i: integer;
begin
  for i := StringGrid1.FixedRows to StringGrid1.RowCount -1 do//Schleife von den FixedRows(Die grauen Zeilen ganz oben im stringgrid) bis zur letzten Zeile
    begin
      StringGrid1.Rows[i].BeginUpdate;//Mit BeginUpdate verhindert man den Neuaufbau also die Aktualisierung des Stringgrids
      StringGrid1.Rows[i].Clear;//Die entsprechende Zeile wird geleert
      StringGrid1.Rows[i].EndUpdate;//Gegenteil von BeginUpdate, Stringgrid wird also aktualisiert
    end;
end;
Und dadurch, dass das Stringgrid nicht bei jedem Schleifendurchlauf aktualisiert wird, läuft die Schleife schneller und das Stringgrid flackrt nicht.

Mfg

ps: Das steht aber auch alles in der Hilfe :roll:

Apollonius 5. Mär 2008 16:24

Re: Reset Button
 
Ich halte BeginUpdate und EndUpdate in diesem Fall für reichlich sinnlos. Diese Methoden sollte man verwenden, wenn man viele Aufrufe an einer Liste nacheinander durchführt.

Fussball-Robby 5. Mär 2008 16:28

Re: Reset Button
 
Zitat:

Zitat von Apollonius
Ich halte BeginUpdate und EndUpdate in diesem Fall für reichlich sinnlos. Diese Methoden sollte man verwenden, wenn man viele Aufrufe an einer Liste nacheinander durchführt.

Aber das stört da doch überhaupt nicht, abgesehen von ganzen 2 Zeilen, die an mehr tippen muss :-D
Und besser immer verwenden, als dass man das bei großen, aufwendigen Schleifen vergisst..

TechnikerHC 5. Mär 2008 16:29

Re: Reset Button
 
hey, danke mann!!

rollstuhlfahrer 5. Mär 2008 16:29

Re: Reset Button
 
Zitat:

Zitat von Fussball-Robby
Aber das stört da doch überhaupt nicht, abgesehen von ganzen 2 Zeilen, die an mehr tippen muss :-D
Und besser immer verwenden, als dass man das bei großen, aufwendigen Schleifen vergisst..

recht hat er

s-off 5. Mär 2008 16:29

Re: Reset Button
 
Zitat:

Zitat von Apollonius
Ich halte BeginUpdate und EndUpdate in diesem Fall für reichlich sinnlos. Diese Methoden sollte man verwenden, wenn man viele Aufrufe an einer Liste nacheinander durchführt.

Das tut er ja - hinter Rows und Cols steckt ja eine Instanz von TStrings.
Nur hätte er das Begin- und EndUpdate sinnigerweise außerhalb des Schleifenkörpers schreiben sollen ;)

Fussball-Robby 5. Mär 2008 16:31

Re: Reset Button
 
Zitat:

Zitat von s-off
Nur hätte er das Begin- und EndUpdate sinnigerweise außerhalb des Schleifenkörpers schreiben sollen ;)

Stimmt allerdings :lol:

DeddyH 5. Mär 2008 16:32

Re: Reset Button
 
Wie willst Du bitteschön
Delphi-Quellcode:
StringGrid1.Rows[i].BeginUpdate;
außerhalb der Schleife schreiben?

Fussball-Robby 5. Mär 2008 16:37

Re: Reset Button
 
Stimmt, BeginUpdate & EndUpdate kann man nur für einzelne Zeilen anwenden :oops: Hab das bisher nur an anderen Objekten angewendet

s-off 5. Mär 2008 16:49

Re: Reset Button
 
Zitat:

Zitat von DeddyH
Wie willst Du bitteschön
Delphi-Quellcode:
StringGrid1.Rows[i].BeginUpdate;
außerhalb der Schleife schreiben?

Ohjemine - so weit sind wir schon :oops:

DeddyH 5. Mär 2008 16:50

Re: Reset Button
 
Es sei Euch vergeben :angel: :mrgreen:


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:10 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz