Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
15. Okt 2007
Da tritt aber wieder der Fehler auf, dass das Listenmaximum überschritten wurde! :-D
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
13. Okt 2007
Es funktioniert :mrgreen: :mrgreen: Vielen Dank!!!
Habe nur noch ein kleines Anliegen:
Es fehlt das letzte Zeichen des Textes...habe ich einen Denkfehler gemacht?
repeat
for i := 0 to length (Schluessel) do // x = Länge des Schlüssels
begin
List.Add(''); // x = Anzahl der Elemente in List
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
13. Okt 2007
Die Länge des Schlüssels ist immer gleich und es soll jeweils 1 zeichen angefügt werden...
Das heißt ich müsste innerhalb der Schleife noch überprüfen lassen, ob der Klartext zuenede ist und dann soll die Schleife beendet werden?
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
13. Okt 2007
das etwas angehängt wird ... :stupid:
List := alter Inhalt + neuer Inhalt
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
13. Okt 2007
procedure TKryptobox.Verschluesseln;
(* -------------------------------------------------------------------- *)
var
i, //Zählvariable für for-Schleife
z, //Variable, die bis zum Ende des Klartextes zählt (repeat...until)
KTWert,
GTWert,
Schluessellaenge, Zeichen : integer;
List : TStringlist;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
12. Okt 2007
Ja klingt logisch :) ...danke
aber leider funktioniert es immernoch nicht...
List.Add('');
List.Strings:= List.Strings + Klartext;
Kann ich nicht ein leeres Element einfügen?
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
12. Okt 2007
er bleibt, wenn ich mit F7 durchgehe bei folgender Zeile stehen
List.Strings:= List.Strings + Klartext;
Vorher hatte ich anstelle dieser Zeile folgendes stehen:
List.Insert(i, Klartext);
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
12. Okt 2007
macht leider keinen unterschied:(
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
12. Okt 2007
Ich bekomme eine Fehlermeldung, dass das Maximum überschritten wird :gruebel:
repeat
for i := 0 to length (Schluessel) do // x = Länge des Schlüssels
begin // x = Anzahl der Elemente in List
List.Strings:= List.Strings + Klartext;
inc (Zeichen);
inc (z);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
12. Okt 2007
Ich habe jetzt eine Stringliste benutzt.
Aber noch eine Frage:
Wie kann ich denn ein Zeichen in ein Element einer List hinzufügen?
Also: List := List + Zeichen?
mfg
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
12. Okt 2007
Es geht darum, dass ich die Zeichen eines Textest nacheinander in Variablen (oder auch nicht:)) abspeichern möchte.
Beispiel:
Text: Hallo ich wohne in Deutschland
a =HLCOEDTHN
b =AOHHIESLD
c =LIWNNUCA
Die anzahl der vohrnanden Variablen, soll durch die Länge eines Wortes bestimmt werden, welches erst zur Programmlaufzeit bestimmt wird.
Forum: Object-Pascal / Delphi-Language
Delphi
by mo_greene,
12. Okt 2007
Hallo,
ist es möglich während der Laufzeit des Programmes Variablen zu erzeugen? Wenn ja wie mache ich das?
Es geht darum, dass ich in Abhängigkeit von der Länge eines Textes verschiedene Variablen erstellen möchte.
MFG, Danke :)
mo_greene