![]() |
Re: Schleifen probleme
ich hab schon beide von euch genannte möglichkeiten ausprobiert
es geht beides nicht .... |
Re: Schleifen probleme
Zitat:
|
Re: Schleifen probleme
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 ? |
Re: Schleifen probleme
Nicht ganz. Die Länge eines Buchstabens ist doch immer 1, oder was meinst Du genau?
|
Re: Schleifen probleme
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 |
Re: Schleifen probleme
Ich rekapituliere mal: Du hast eine Art Zuordnungstabelle, in der z.B. so etwas steht
Code:
Damit ergäbe sich für das Wort "Test" als verschlüsselter Text dann "123234345123", richtig?
T=123
E=234 S=345 |
Re: Schleifen probleme
jap
|
Re: Schleifen probleme
Gut, dann mal etwas Pseudocode:
Delphi-Quellcode:
So in etwa sollte das doch funktionieren.
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; |
Re: Schleifen probleme
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 :wall: :( |
Re: Schleifen probleme
Die Funktion "ZugeordneterBuchstabe" würde das zurückgeben. Mein Beispiel ist ja nur Pseudocode ;)
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:13 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