Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
 
Delphi 10.4 Sydney
 
#17

Re: Kryptologie Projekt in Delphi... HILFE !!!

  Alt 22. Mär 2006, 16:34
mit der Listbox stelle ich mir das auch etwas schwieriger vor.
Einfacher geht es denke ich mit einem TMemo.

In dem Klartextfenster nach dem die Anzahl der Zeichen eingetragen wurden
die der Schüsselänge entspricht eine neue Zeile hinzufügen
und dort dann wieder die gewünschte Anzahl an Zeichen eintragen....

Zum Umwandeln kannst Du dir dann entweder den Klartext als ein String
lassen, quasi so wie er eingeben wurde oder
Du machst die Umwandlung über die Zeilen und Spalten des Memos

Vtext:=Vtext+memo(zeile1,zeichen1)
vtext:=Vtext+memo(zeile2,zeichen1)
...

vtext:=vtext+memo(zeilex,zeicheny)

Das natürlich in einer Schleife.
memo beinhaltet die Anzahl der Zeilen als propertie

Der Rest ist dann noch ein wenig basteln.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat