Hallo,
ich, Beginner mit turbodelphi for .net, möchte verschiedene Verschlüsselungen programmieren, und zwar als Windows-Forms-Anwendung. Bis jetzt klappt alles bis auf eine Kleinigkeit: Ich möchte eine Ausgabe in einer Textbox (geheimtextbox.text) ausgeben, und zwar Zeichen für Zeichen. Die schrittweise Ausgabe klappt aber nicht !
Ich hab mir eigentlich gedacht, ein Zeichen wird verschlüsselt, an den geheimtext(gt) angehängt und der gt ausgegeben, kurz warten, dann von vorne mit dem nächsten Zeichen.
Die procedure verschlüssele ist eine unterprocedure von
procedure TWinForm.Verschlüsseln_Button_Click(sender: System.Object; e: System.EventArgs),
und ich habe das Gefühl, dass der Fensterinhalt erst nach beendigung der Hauptprocedure (TWinform......button_click) auf den neuesten stand gebracht wird und nicht schritt für schritt in meiner verschlüssele-procedure.
Was kann ich tun, SuFu hab ich schon ausgiebig genutzt ?!?
MfG,
HansHarz
Delphi-Quellcode:
procedure verschlüssele;
var i: integer;
c: char;
begin
for i := 1 to length(kt) do //Klartext durchgehen
begin
c:=kt[i]; //Einzelnen Klartextbuchstaben bearbeiten
if c<>' ' then // Leerzeichen nicht verschlüsseln
begin
gt:=gt+ga[pos(c,ka)]; //Dem Geheimtext ein verschlüsseltes Zeiche zufügen
end
else gt:=gt+' '; // oder ein Leerzeiche
geheimtextbox.Text:=gt; // Ausgabe des (noch unvollsändigen) Geheimtextes
warte; // warten, zum nachvollziehen
end;
end;