Schleifen probleme

[gangs-taas]

ich hab schon beide von euch genannte möglichkeiten ausprobiert
es geht beides nicht ....

[DeddyH]

Zitat von DeddyH:

Aber sag doch einmal genau, was der Code machen soll, evtl. gibt es da auch eine übersichtlichere Lösung dafür.

[gangs-taas]

also er soll den text eines Textfeldes kopieren,
dann soll er die ersten x buchstaben des Textes nehmen und überprüfen ob sie einer bestimmten zahlenkombi entspricht (also va,vb,oderbz)
wenn ja soll er dies in einen Zwischenstring übergeben.
anschließend soll er das ganze mit den nächsten x buchstaben des memo-feldes machen

hierzu soll stamp1 (also ne zwischenvariable) nur noch von der länge eines buchstabens bis zum ende gehen.
anschließend soll die if abfrage wieder überprüfen ob die ersten x zahlenen ner zahlen kombi entsprechen ect.


verstanden ?

[DeddyH]

Nicht ganz. Die Länge eines Buchstabens ist doch immer 1, oder was meinst Du genau?

[gangs-taas]

also es ist nen endschlüsselungs-programm

und bei mir ist jeden buchstaben eine zahlenkombie mit der länge x zugewiesen.

und "Zwischentext" ist ein string wo der Klartext-text zwischengespeichert wird

[DeddyH]

Ich rekapituliere mal: Du hast eine Art Zuordnungstabelle, in der z.B. so etwas steht

Code:

T=123
E=234
S=345

Damit ergäbe sich für das Wort "Test" als verschlüsselter Text dann "123234345123", richtig?

[gangs-taas]

jap

[DeddyH]

Gut, dann mal etwas Pseudocode:

Delphi-Quellcode:

function Entschlüsseln(Eingabe: string; Länge: integer): string;
var Index: integer;
begin
  Index := 1;
  Result := '';
  while Index < Length(Eingabe) do
    begin
      Result := Result + ZugeordneterBuchstabe(Copy(Eingabe,Index,Länge));
      Index := Index + Länge;
    end;
end;

So in etwa sollte das doch funktionieren.

[gangs-taas]

und wo prüfst du jetzt ob der string den du hast einem 'wert' in deiner

'tabele'

T=123
E=234
S=345


zugewiesen hat ?

ich versteh dein code nicht

[DeddyH]

Die Funktion "ZugeordneterBuchstabe" würde das zurückgeben. Mein Beispiel ist ja nur Pseudocode