Edit Problem

[oliver1]

Hallo zusammen!

ich hab da mal en paar Fragen die ihr hoffentlich beantworten könnt!

In mein Edit-Fenster will ich das keine Buchstaben eingegeben werden können und fals doch soll eine Fehlermeldung erscheinen!

Als zweites sollen genau 6 Ziffern in das Edit-Feld passen! Geht das irgendwie?

Und fals einer nichts in das Edit-Feld schreibt soll auch eine Fehlermeldung kommen! Das hab ich zwar schon probiert aber irgendwie haut das nich hin!

Hoffentlich kann mir einer von euch helfen!
Bitte schreibt noch ein Beispiele mit den Delphi-Code dazu.

Liebe Grüße

[Nersgatt]

Kurz eine Nachfrage: Wirklich Delphi.NET? Weil Du Version 5 gewählt hast.
Wenn wirklich .NET, ist es eine VCL-Anwendung oder WinForms?

[DeddyH]

Hallo Oliver,

Willkommen in der DP ,
die Anzahl der maximal einzugebenden Zeichen kannst Du mit MaxLength festlegen, setz diese Eigenschaft einfach im Objektinspektor auf 6. Ob ein Edit leer ist, kannst Du mit einem einfachen Vergleich auf '' ermitteln. Und eine Möglichkeit, nur Zahlen zuzulassen, wäre, im OnChange-Ereignis des Edits in einer Schleife den Text durchzugehen und jedes Zeichen auf Ziffern abzuprüfen.

[oliver1]

oh sorry ich benutze die Delphi Version 5!

[Nersgatt]

Gibt es in Delphi 5 das TMaskEdit? Wenn ja, dann verwende dies und setze die Eigenschaft EditMask auf '######'.

[himitsu]

und wieder mal falsche Spart

(war da nicht 'ne Umbenennung geplant )
Jetzt nicht böse gemeint, aber da wir grad mal wieder jemand "Verlaufenen" haben ...
Wieso hast du ausgerechnet in dieser Sparte gepostet ... bzw. über welchen Weg hast du deinen Post erstellt?
Wir versuchen das ja irgendwie verständlicher zu machen ... siehe Sind Rubriken des Forums richtig gewählt

[oliver1]

Wie geht das genau mit der schleife das es jede Ziffer prüft ob es kein buchstabe ist?
un wie geht das mit der Fehlermeldung wenn man weniger als 6 Ziffern einträgt?


hier mal noch mein Delphi-Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var a, b, ausgabe: integer ;

begin

a:=strtoint(edit1.text);
b:=strtoint(edit2.text);

ausgabe:= (a xor b xor 840917 mod 1000000);

edit3.text:=inttostr(ausgabe);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
edit2.text:=FormatDateTime('ddmmyy', Now);
end;

end.

[edit=mkinzler]Delphi-Tag korrigiert Mfg, mkinzler[/edit]

[DeddyH]

Die Länge bekommst Du mit Length(Edit.Text). Und die Schleife habe ich so gemeint:

Delphi-Quellcode:

function IsNumber(const s: string): Boolean;
var i: integer;
begin
  Result := true;
  for i := 1 to Length(s) do
    if not (s[i] in ['0'..'9']) then
      begin
        Result := false;
        exit;
      end;
end;

Schnell heruntergetippt, sollte aber hoffentlich funktionieren.

[fkerber]

Hi!

Auch von mir herzlich willkommen in der DP!

Ein paar Bitten hätte ich noch:
Könntest du bitte deinen ersten Beitrag editieren (Button oben rechts am Beitrag) und zum einen dann Delphi für Win32 auswählen und zum anderen einen anderen Titel wählen, der etwas mehr über die Art des Problems aussagt (z.B. Edit: Nur zahlen zulassen).

Vor der Erstellung deines nächten Themas solltest du bitte folgendes beachten:
Zuerst die Suche des Forums nutzen (zu dem Thema hier wärst du sicher fündig geworden) und wenn man dann nichts gefunden hat, sollte man sich zuerst überlegen, welches Unterforum das richtige ist - dazu sollten auch die Beschreibungen der Sparten hier ( http://www.delphipraxis.net/forum_main.php ) helfen!


Viele Grüße,
Frederic