AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Verschachtelte For Anweisung

Ein Thema von derzohan · begonnen am 8. Mai 2010 · letzter Beitrag vom 8. Mai 2010
 
derzohan

Registriert seit: 8. Mai 2010
1 Beiträge
 
#1

Verschachtelte For Anweisung

  Alt 8. Mai 2010, 09:16
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
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz