Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: verschlüsseln

   
    by Blup, 12. Nov 2010
  Normalerweise trennt man die Darstellung, Ein- und Ausgabe im Formular von der fachlichen Logik.
  Das dient der Übersichtlichkeit und erleichtert die Fehlersuche.
  Außerdem kann man den Code so später an anderer Stelle wiederverwenden.
  
  Maske:=254; // damit alle Bits 1 sind außer das letzte
  {...}
  
  Eigentlich ist die eine Konstante und sollte auch als solche deklariert werden.
  
  f:=7; //...
• Forum: Programmieren allgemein

  AW: verschlüsseln

   
    by Blup, 5. Nov 2010
  Da sind wohl einfach noch zu viele Probleme drin, bevor ich jetzt alles erklär... :coder:
  const
  MASKE1 = $FE;
  MASKE2 = $01;
  
  procedure Encode(ABitmap: TBitmap; const AText: AnsiString);
  var
  m, mMax, x, xMax, y, yMax, g: Integer;
  a, v: Longword;
  P: PByteArray;