Minimale Zeichenanzahl im Edit

[HentaiD]

Hi Leutz!
Eine maximale Zeichenanzahl im Edit is ja kein problem,aber ich hätte gerne auch eine minimale.
Hab nur leider keine Ahnung wie das geht.
Ich hab ein Edit und möchte,dass auf jeden Fall (zB)8 zeichen angegeben werden können[edit:müssen,nicht können].

thx,Greetz,D

[Basic-Master]

*neugierig* wofür brauchste das denn?
meine idee: nimm ne globale variable (string) und überprüf in deinem onchange-ereignis ob dein neuer text 8 zeichen lang ist, wenn ja, dann weise der globalen variable den text zu, wenn nicht dann ersetz den text deines edits mit dem text der globalen variable...

[Basic-Master]

und so könnte das ganze aussehen:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    eLetzteEingabe:String;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(edit1.Text) >= 8 then
  eLetzteEingabe := edit1.Text
else begin
  edit1.Text := eLetzteEingabe;
  edit1.SelStart := length(edit1.Text)
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
eLetzteEingabe := edit1.Text;
end;

end.

[HentaiD]

Also ich wollte ein einfaches Name / Serial programm schreiben,es schützen und versuchen es dann zu knacken
Ich wollte mit dem Edit namen dann einen 8stelligen character haben,damits irgendwie hinteher nach serial aussieht *g* das is reine Willkür eigentlich.
ich hab halt nur Probleme mit einer schönen serial gestaltung,die aus dem Namen resultieren soll.Ich glaub das nennt man n Algorhytmus *g*

also wie müsste ich den code anlegen?(bin noch n00b - hab nich allzuviel ahnung)

ich habs so versucht :

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var 
x : string;
begin
edit1.text:=x;
end;

Dann konnte ich aber weder int noch str eintragen,da gibg nix mehr,wundert mich nicht,denn bei mir geht nie was *g*

Greetz,D
edit : ah thx,war ma wieder schneller mit schreiben als gucken

[Basic-Master]

die variable muss global sein... wenn du deine variable in jeder prozedur neu deklarierst kann das ja nicht gehen guck dir nochmal den letzten theard von mir an, da ist eLetzteEingabe global deklariert.

[HentaiD]

Jetzt funzt es danke.
hatte nur grade nen kleinen Denkfehler fällt mir auf.ich hab ja jetzt einen = oder größer als 8 zeichen Befehl drin.irgendwie nicht sehr benutzerfreundlich *g*.
ich schau mal,dass ich den code so verwende,dass man alles eingeben kann (also string),aber wenn aufn klick aufn button die zahl der Aktoren nicht 8 ist,dass dann showmessage('Ihr Name muss 8 Buchstaben haben') erscheint und sich dann der edit auf 8 buchstaben reduziert bzw um "a" verlängert *g*.Ist eigentlich sinnlos,wer hat schon zufällig 8buchstaben im namen.Ich nicht,aber ich dachte mir,so fällts mir leichter den Algo für die später Serial zu schreiben.

Greetz,D