aLex18 - Di 14.01.03 20:14
Titel: 2 Fragen noch zu meinem Tool
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
Quelltext
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
Tino - Mi 15.01.03 11:02
| Zitat: |
| ICh wollte eine Gauge einbauen also die so wie die Progressbar ist aber wie funzt das |
Die ist relativ einfach zu benutzen. Schau Dir mal die Eigenschaften an. Zu handlen ist die Komponente so wie eine tProgressbar.
| Zitat: |
| und 2 tens wollte ich wissen ob man das so machen kann das Satzzeichen, und Space auch funktionieren dennoch aber nciht verändert werde. |
Wo was warum?? Da ich Dein Programm nicht kenne solltest Du etwas genau werden!
| Zitat: |
| Ganz zum Schluss wollte ich noch fragen ob man auch noch Zahlen mit einbaucn kann das wäre super danke im Vorraus |
sie oben!
Bitte in Zukunft für jede Frage ein eigenes Topic erstellen!
Gruß
TINO