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

zusammenfalten · markieren

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;

markieren

Delphi-Quellcode:

geheimtextbox.Text:=gt; // Ausgabe des (noch unvollsTändigen) Geheimtextes
Application.ProcessMessages; // <-- schon mal ausprobiert?
warte; // warten, zum nachvollziehen
end;