Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: pack-Funktion optimieren

    Delphi
    by luke2, 5. Feb 2012
  Dann sage ich mal vielen Dank, es ist ungefähr 4x schneller als meine Version! :thumb:
• Forum: Object-Pascal / Delphi-Language

  AW: pack-Funktion optimieren

    Delphi
    by luke2, 5. Feb 2012
  Danke jbg, das sieht schon sehr gut aus, allerdings erhalte ich in der Zeile
  div ecx // und dividieren (EDX enthält Rest, der als Übertrag genutzt wird)
  
  immer den Fehler Division durch Null, egal mit welchen Werten ich cvbase aufrufe.
  
  
  Die Strings werden später in eine Datei gespeichert und deshalb wird ein (beliebiges) Zeichen benötigt um einen string von dem anderen zu unterscheiden.
• Forum: Object-Pascal / Delphi-Language

  pack-Funktion optimieren

    Delphi
    by luke2, 4. Feb 2012
  Hallo!
  
  Ich habe folgende Funktion um eine große Zahl mit Hilfe der Ascii-Tabelle "einzupacken" und somit zu komprimieren.
  
  const base=255;
  var chtab:array of char;
  
  procedure initchtab;
  var i,j:byte;
  begin