AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

Ein Thema von D3ltaX · begonnen am 25. Feb 2010 · letzter Beitrag vom 18. Jan 2012
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Flamersheim
1.075 Beiträge
 
Delphi 2007 Professional
 
#11

AW: Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

  Alt 18. Jan 2012, 14:34
hmm

Delphi-Quellcode:
Var
  i : integer;
  S : ShortString;
  A : array[0..255] of byte absolute S;
  V : byte;
begin
  V := strtoint(Edit1.Text); // <-- Edit!
  S := Edit2.Text;

  for i:=1 to A[0] do
    inc(A[i],V);
end;
Mavarik
Frank Lauter
Me and David I
Hier wohne ich : Google Earth Link

Geändert von Mavarik (18. Jan 2012 um 16:02 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
22.945 Beiträge
 
Delphi XE2 Professional
 
#12

AW: Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

  Alt 18. Jan 2012, 15:03
Ord(A[0]) = Length(A)
bei einem ShortString (deswegen fangen Strings auch mit 1 an)
PS: Man spart damit keinen einzigen Prozessortakt, also der Zugriff auf [0] würde ich möglichst vermeiden.


PS: Bedenke, daß beim einfachen "Verschieben" der Chars auch sogenannte Steuerzeichen (bestimmte "Buchstaben") entstehen können, welche z.b. ein Memo nicht so gern hat, bzw. nicht (richtig) darstellen kann.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2012
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Flamersheim
1.075 Beiträge
 
Delphi 2007 Professional
 
#13

AW: Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

  Alt 18. Jan 2012, 15:18
Ord(A[0]) = Length(A)
Siehe oben...

a : Array of Byte absolute S;
Frank Lauter
Me and David I
Hier wohne ich : Google Earth Link
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286
Online

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
2.302 Beiträge
 
Delphi 7 Personal
 
#14

AW: Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

  Alt 18. Jan 2012, 15:46
Wenn ich es richtig verstanden habe ging es um das dec(A[i],v) ;
Abgesehen von den Sonderzeichen und Überläufen, wo klemmt's??

Gruß
K-H
Programme gehorchen nicht Deinen Absichten
sondern Deinen Anweisungen
Do it with Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
22.945 Beiträge
 
Delphi XE2 Professional
 
#15

AW: Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

  Alt 18. Jan 2012, 15:55
Arg, vorhin hab ich noch 'nen SchortString gesehn *ich schwör*
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2012
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
21.050 Beiträge
 
Delphi XE Professional
 
#16

AW: Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

  Alt 18. Jan 2012, 15:57
Der ist ja auch da (in S, auf den A mit absolute zeigt).
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2012 by Daniel R. Wolf