Delphi Facharbeit

[hanki]

Hallo,
ich schreibe in der Schule eine Facharbeit im Fach Informatik,
jedoch habe ich ein Problem bei dem ich von alleine nicht auf die Lösung komme.
Es geht sich um die Cäsar-Verschlüsselung die soweit auch ohne Probleme geht.
Ich will jedoch die Eingabe von dem Edit-Feld nur auf zahlen beschränken.
Hierbei ist mein Problem dass ich dies in eine if verschachtelung(sofern man es so nennen kann) einbauen muss und keine Ahnung haben wie.
Ich würde mich über schnelle Hilfe sehr freuen.
Hier also noch der Quelltext in den ich diese Überprüfung eingebunden haben will.

Delphi-Quellcode:

procedure TForm1.btsatztverschluesselnClick(Sender: TObject);
var  i, k, v: integer;
 begin
  if length (edeingabe.text)=0 then
   begin
    showmessage('Es ist kein Satz zum verschlüsseln vorhanden!')
   end
   else begin
    v:= StrToIntdef(edverschiebung.Text,5);                                                
    edausgabe.clear;                                                             
     for i := 1 to Length(edeingabe.Text) do
      begin                                                                        
       k:= Ord(edeingabe.Text[i]);                                                
       k := k + v;                                                               
       edausgabe.Text := edausgabe.Text + chr(k);
      end;
   end;
 end;

[Luckie]

Wie wäre es mit der Forensuche?
http://www.delphipraxis.net/internal...=tedit+ziffern

[rollstuhlfahrer]

Zitat:

Zitat von hanki

Hallo,
ich schreibe in der Schule eine Facharbeit im Fach Informatik,
jedoch habe ich ein Problem bei dem ich von alleine nicht auf die Lösung komme.
Es geht sich um die Cäsar-Verschlüsselung die soweit auch ohne Probleme geht.

Soweit ok.

Zitat:

Zitat von hanki

Ich will jedoch die Eingabe von dem Edit-Feld nur auf zahlen beschränken.

Folgendes musst du mit deinem Edit verknüpfen, in das nur Zahlen dürfen (OnKeyPress). Dies sorgt dafür, dass nur Zahlen eingegeben werden können und alles andere in einem Fehlerton endet.

Delphi-Quellcode:

procedure TForm1.eSchluesselKeyPress(Sender: TObject; var Key: Word);
begin
  if NOT (Key in [#8, '0'..'9', ',']) then 
    Key := #0; 
end;

Zitat:

Zitat von hanki

Hier also noch der Quelltext in den ich diese Überprüfung eingebunden haben will.

Hausaufgaben macht hier keiner und erst recht keine Facharbeit. -> Ein bisschen Eigeninitiative ist nicht schlecht.

Bernhard

[Sir Rufo]

Zitat:

Zitat von Luckie

Wie wäre es mit der Forensuche?
http://www.delphipraxis.net/internal...=tedit+ziffern

Das ist nicht Teil der Facharbeit, darum hat er sich mit dem Thema "Suche" noch nicht auseinandergesetzt :mrgreen:

[hanki]

Also zuersteinmal danke für die schnellen antworten ;)
die forensuche hätte ich gründlicher nutzen können das ist richtig.entschuldigung.
Um auf die eigeninitiative zu sprechen zu kommen:
Ich habe etwas ausprobiert jedoch hat er dann immer zwei fehler angezeigt und ich habe mir gedacht ich kann besser von 0 anfangen :
hier mein versuch:

Delphi-Quellcode:

procedure TForm1.btsatztverschluesselnClick(Sender: TObject);
var  i, k, s, v: integer;
 begin
  if length (edeingabe.text)=0 then
   begin
    showmessage('Es ist kein Satz zum verschlüsseln vorhanden!')
   end
 else begin
  for s:=1 to length(edverschiebung) do
   begin
    if Pos(edverschiebung[s],eingabemoeglichkeit)>0
     then begin
      v:= StrToIntdef(edverschiebung.Text,5);                                                
      edausgabe.clear;
    end;                                                              
     for i := 1 to Length(edeingabe.Text) do
      begin                                                                        
       k:= Ord(edeingabe.Text[i]);                                                   
       k := k + v;                                                               
       edausgabe.Text := edausgabe.Text + chr(k);
      end;
     end;
   end;
 end;

[Luckie]

Zitat:

Zitat von hanki

hier mein versuch:

Schön. Und?

[hanki]

ja da liegt mein probelm =P
Delphi sagt mir:-klasse besitzt keine standarteigenschaft
-typ unkompatibel

hat jemand eine ahnung warum ?

[Sir Rufo]

Zitat:

Zitat von hanki

ja da liegt mein probelm =P
Delphi sagt mir:-klasse besitzt keine standarteigenschaft
-typ unkompatibel

hat jemand eine ahnung warum ?

Wegen den Sonnenflecken, musste mal 14 Tage warten, dann sind die weg und vielleicht geht es dann. :mrgreen:

Wo sagt Delphi das?
Zeigt Delphi eine Zeilen-Nummer mit an?

Wir sind Programmierer, keine Hellseher!

[Luckie]

Und jetzt bitte noch den zweiten Teil der Fehlerbeschreibung: Wo? In welcher Zeile tritt der Fehler auf? Wir sind hier keine Hellseher.

[s.h.a.r.k]

@Sir Rufo & Luckie: Habt ihr euch bzgl Hellseher abgesprochen?! :mrgreen:

Btw: Ab Delphi 2010 ist NumbersOnly ein Feature eines Edit-Feldes!