Forum: Sonstige Fragen zu Delphi
Delphi
by Blup,
3. Mär 2010
Zu deinem Stil sollte ich besser nichts sagen...
Trotzdem kann ich mir grundsätzliche Hinweise nicht verkneifen.
:warn:
Funktionen haben Parameter und Rückgabewerte, alles darüber hinaus geht eine Funktion nichts an.
Zugriffe auf globale Variablen in anderen Units sind unschön, Zugriffe auf Steuerelemente in fremden Formularen sind extrem ...
Ich habe deshalb mal ein bischen drin...
Forum: Sonstige Fragen zu Delphi
Delphi
by Blup,
2. Mär 2010
:glaskugel: Mit "grob übernommen" kann zumindest ich nichts anfangen.
Bitte häng doch mal dein ganzes Projekt als Zip-Archiv an, den Teil zum Entschlüsseln haben wir noch gar nicht gesehen.
Sollte eigentlich symmetrisch sein.
Edit:
Die Größe des Arrays wird falsch berechnet, wenn die Wurzel aus der Länge des Strings eine Ganzzahl ist.
// falsch
// x:=trunc(sqrt(length(s1)))+1;
Forum: Sonstige Fragen zu Delphi
Delphi
by Blup,
1. Mär 2010
Das Initialisieren kann gleich mit eingespart werden:
// Einlesen des Textes ins Array
k := 1;
kmax := Length(s1);
for j := 1 to x do
begin
for i := 1 to x do
begin
if k <= kmax then