KOmpresja danych

ProProgramer

2012-05-10T10:02:40+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 47

Witam.
Potrzebuje skompresować dane w pascalu z char na Longint.. Jak to zrobić..?

Shalom

2012-05-10T10:10:38+02:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Space: the final frontier
Postów: 26433

Ale char jest mniejszy od Longinta więc nie bardzo widzę tutaj możliwość kompresji jednego do drugiego...

unikalna_nazwa

2012-05-10T11:53:13+02:00

Rejestracja: dni
Ostatnio: dni

Mi się wydaje że chodziło o upchanie czterech charów do longinta:

Kopiuj

type c4 = array[1..4] of char;

function AsLongint(var Buffer): Longint;
var l: Longint absolute Buffer; 
begin 
  AsLongint := l;
end; 

function AsCharArray(var Buffer): c4;
var r: c4 absolute Buffer;
begin
  AsCharArray := r;
end;

var c: c4;
  wynik: longint;
begin
  c := 'test';

  wynik := AsLongint(c);
  writeln('Cztery bajty jako longint: ', wynik);

  c := AsCharArray(wynik);
  writeln('Z powrotem na chary: ', c);

  Inc(wynik, $A shl 8);
  writeln('Zamieniam "e" na "o": ', AsCharArray(wynik));

end.