Danke für eure schnelle Hilfe erstmal jetzt brauche ich aber noch 2 Antworten und zwar.
ICh wollte eine Gauge einbauen also die so wie die Progressbar ist aber wie funzt das? und 2 tens wollte ich wissen ob man das so machen kann das Satzzeichen, und Space auch funktionieren dennoch aber nciht verändert werde.
Ganz zum Schluss wollte ich noch fragen ob man auch noch Zahlen mit einbaucn kann das wäre super danke im Vorraus
Hier der Quelltext vom Prog
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
| procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
t:string;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x,z :integer;
begin
t :='';
For x :=1 to length(edit1.Text) do
Begin
z:= ORD(Edit1.Text[x]);
z:= z+3;
if (z > ORD('Z')) and (z < 97) then z :=z-26;
if z > ORD('z') then z :=z-26;
t :=t + CHR(z);
end;
//edit1.Text :=t;
timer1.Enabled :=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
VAR s: STRING;
i,k:Integer;
begin
s := '';
For i := 1 to length(edit1.Text) do
begin
if UpCase(edit1.Text[i]) = UpCase(t[i]) then s:=s+t[i]
else begin
k:=Random(2);
if k mod 2 = 0 then s := s+chr(ord('A')+random(26))
else s := s+LowerCase(chr(ord('A')+random(26)));
end;
end;
edit1.Text :=s;
if edit1.text=t then timer1.Enabled:=False;
end;
end. |
VIELEN DANK
