Halle Leute,
ich muss eine Facharbeit für den Informatikunterricht schrieben und es gehtum Cäsar Chiffren.
In dem Programm befindet sich eine StringGrid, mit zwei Spalten. In der oberen ist das richtige Alphabeth und in der unteren das verschobene. Darunter ist ein UpDown-Button, mit dem dazugehörigen Edit-Feld. In dem Edit Feld kann ich dann mit Werten von 1-25 die Verschiebung einstellen.
Der Quelltext zum Verschieben siht so aus:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to 26 do
begin
CaesarStringGrid.Cells[i,0]:=chr(65+i);
CaesarStringGrid.Cells[i,1]:=chr(65+i);
end;
end;
procedure TForm1.UpDownClick(Sender: TObject; Button: TUDBtnType);
var VStr:String;
VInt, i, r, s, b:Integer;
begin
VStr:=VerschiebewertEdit.TExt;
VInt:=StrToInt(VStr);
for i:=0 to 25 do
begin
r:=65+i+VInt;
if r>=90 then
begin
for b:=0 to 25 do
begin
for s:=91 to 65 do
begin
CaesarStringGrid.Cells[s,1]:=chr(b+VInt);
end;
end;
end else
begin
CaesarStringGrid.Cells[i,1]:=chr(r);
end;
end;
end;
Ich geb zu der Quelltext sieht kompliziert aus. Wenn ich das Programm Compilieren will, meckert Delphi, und lässt die for-Schleife "for s:=91 to 65 do" einfach weg. Falls dieses Programm wenn Delphi nicht mecker würde richtig wäre, sagt mir bitte bescheid, und sagt mir, wie ich den meckerservice abstellen kann. Ansonsten natürlich was ich falsch gemcaht habe.
mfg
Derzohan