in edit maximal 1 KOMMA zulassen

[HappyTreeFriend]

hey, wieso darf das nur in einem tedit feld verwended werden? ich muss das in alle bekommen *gg*

[Daniel B]

Hallo,

mach Bitte bei neuen Fragen auch ein neuen Thread auf! Danke!

Delphi-Quellcode:

procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := '1';
  Delay(500);
  Edit2.Text := Edit2.Text + '2';
  Delay(500);
  Edit2.Text := Edit2.Text + '3';
end;

Da Sleep das ganze etwas "kaputtmacht" und das Ergebniss nicht das wahre ist, habe ich es mal mit Luckies Delay-Prozedur eingefügt. Die ist wenisgtens verlässlich. :lol:
Grüsse, Daniel :hi:

[n0b0dy@home]

hi @all, ich hatte mal sowas vor einiger zeit zusammengeklickert

Code:

procedure CheckNumEingabe(strCheckText: String; var Key: Char);
begin
  if not (( (Key >= #48) and (Key <= #57))
         or (Key <  #32)
         or((Key =  #44) and (Pos(Key, strCheckText) = 0))) then Key := #0;

end;

vielleicht hilft's

[Stanlay Hanks]

Zitat:

Zitat von Daniel B

Hallo,

Zitat:

Zitat von Stanlay Hanks

Ginge da eigentlich nicht auch, dass man im OnChange mit Pos() prüft, ob ein Komma schon vorhanden ist?

Versuch Dein Glück und zeig uns dann den Code. Ich warte. :mrgreen:
Aber hier direkt reinhacken und nicht testen!

Grüsse, Daniel :hi:

War ja nur ein Vorschlag...Ich hab auch nicht immer gleich Delphi parat. :?

[HappyTreeFriend]

Oki Daniel, mach ich beim nächsten mal, ich hab wahrscheinlich noch mehr fragen in den nächsten Tagen. Ich muss mit meinem Kumpel ein Projekt für den Informatik LK schreiben, da brauche nwir manchmal etwas hilfe :).


Aber jetzt mal zu deinem Algorithmus!
Er funzt schonmal :)

Jetzt noch eine frage:
Wie kann ich denn jetzt da nen gescheiten "random zähler" einbauen.
Also dass er mir random zahlen in dem editfeld ausgibt

müsste doch theoretischerweise so gehen

Code:

var i:integer;
begin
randomize;
i:=random(10);
{schleife}
.
.
edit1.text:=IntToStr(i);
delay(500);
{schleife}
end;

wie bau ich denn da ne geeignete schleife ein?
Danek nochmal :)

ciao
Happy

[Daniel B]

Hallo,

dann mach Bitte jetzt ein neuen Thread auf, das ist jetzt wieder eine neue Frage! Daher schliesse ich hier erstmal.

Grüsse, Daniel :hi:

[Christian Seehase]

Moin Happy,

Zitat:

Zitat von HappyTreeFriend

hey, wieso darf das nur in einem tedit feld verwended werden? ich muss das in alle bekommen *gg*

Die Betonung lag auf TEdit und nicht auf einem ;-), da ich (Sender as TEdit) benutzt habe, was daneben geht, wenn der Sender kein TEdit oder eine Ableitung davon ist.
Zuweisen kannst Du die Routine beliebig vielen Edits.

Zitat:

Zitat von Daniel B

mach Bitte bei neuen Fragen auch ein neuen Thread auf! Danke!

Das war jetzt von Daniel nicht als Witz gemeint:
Neue Frage - Neuer Thread.

Danke.