Delphi-PRAXiS
Seite 3 von 5     123 45      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Schleifen probleme (https://www.delphipraxis.net/133089-schleifen-probleme.html)

gangs-taas 25. Apr 2009 12:02

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

DeddyH 25. Apr 2009 12:08

Re: Schleifen probleme
 
Zitat:

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 25. Apr 2009 13:04

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 ?

DeddyH 25. Apr 2009 13:08

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

gangs-taas 25. Apr 2009 13:10

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

DeddyH 25. Apr 2009 13:14

Re: Schleifen probleme
 
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 25. Apr 2009 13:15

Re: Schleifen probleme
 
jap

DeddyH 25. Apr 2009 13:22

Re: Schleifen probleme
 
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 25. Apr 2009 13:25

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: :(

DeddyH 25. Apr 2009 13:27

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 02:09 Uhr.
Seite 3 von 5     123 45      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz