|
|
MrphDrksng
|
| Titel: Kurzen Quelltext interpretieren (Caesar Chiffre) |
25.02.2010 12:58 |
|
|
Anmeldungsdatum: 28.11.2008
Beiträge: 136
|
So ich verstehe hier eine sache nicht
procedure TForm1.Button1Click(Sender: TObject);
var
a, c: Integer;
begin
for c := 1 to Length(Edit1.Text) do
begin
a := Ord(Edit1.Text[c]);
a := a + 1;
Label1.caption := label1.caption + Chr(a);
Also Ich seh das so:
a und c von typ integer
begin
für variable c anwendung 1 bis Länge des textes aus edit1 ausführen
begin
für var a den text in seine zugeordner Nummer umwandeln
----jezzt weis ich nicht warum muss a + 1?----
Caption aus label eins Mit a ersetzen ... vorher wird a wieder in einen Widechar umgewandelt
SO Jezz brauch ich eure hilfe ... warum a+1?
mfg
|
 |
|
| |
|
MrphDrksng
|
| Titel: Kurzen Quelltext interpretieren (Caesar Chiffre) |
25.02.2010 13:09 |
|
|
Anmeldungsdatum: 28.11.2008
Beiträge: 136
|
OK ich habs das is ja falsch es müsste +3 sein nach caesar...
das ist die anzahl der verschiebungne
|
|
|
| |
|
MrphDrksng
|
| Titel: Kurzen Quelltext interpretieren (Caesar Chiffre) |
25.02.2010 13:25 |
|
|
Anmeldungsdatum: 28.11.2008
Beiträge: 136
|
Knnt ihr mit helfen wie ich ein x beliebigen schlüssel definieren kann?
|
|
|
| |
|
|
|
|
|
|
Themen
Unbeantwortet
Betriebssysteme
