Kleines Verschlüsselungs-Programm

[Deltachaos]

Zitat von Luckie:

Ich auch:

Delphi-Quellcode:

with Printer do 
  begin 
    BeginDoc; 
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200), 
                    200, 200, Memo1.Lines.Text); 
    EndDoc; 
  end; 
  MessageDlg('Druckauftrag wurde gesendet!', 
  mtinformation, [mbOk], 0);

Vorher weißt du, dass das Dokument an den Drucker gesendet wurde? Wie überprüfst du das?

diese Funktion Funktionirt noch nicht richtig

Zitat von 1234588:

ich hab zufaellig was gesehen

Delphi-Quellcode:

  begin;
    if form1.radiobutton3.checked then
      begin
        begin            < warum?
          decode;
          l3;
          decode;
          l3;
          decode;
          l3a;
        end;
        MessageDlg('Decodieren erfolgreich beendet',    < beendet, aber auch wirklich erfolgreich?
        mtinformation, [mbOk], 0);
        form1.gauge2.progress:=0;
      end;
  end;

Oh wird geändert.
Es ist eben immer noch eine Beta Version