RLE – Delphi – Fórum – Programujte.com

Našel jsem tady nějaké popisy jak naprogramovat kompresní metodu RLE v delphi,ale jsem docela začátečník a pořád tam mám nějaké problémy...prostě zkouším různé varianty...Najde se někdo,kdo by mi mohl nějak pomoct?Děkuji předem

Var: stary,novy : file;
buffer : array[0..2048]of byte;
Precteno,Zapsano : integer;
i,j : byte;

begin
Reset(Stary, 1);
AssignFile(Novy,Edit1.text+'.txt');
Rewrite(Novy, 1);
Precteno:=1;

while not eof(stary) do;
i:=1;
begin
BlockRead(Stary, Buffer, SizeOf(Buffer), Precteno);
if (Buffer[i]=Buffer[i+1])and(Buffer[i+1]=Buffer[i+2]) then
begin
inc(i);
BlockWrite(Novy,Buffer[i],i);
end
else
Blockwrite(Novy,Buffer[i],Precteno)
end;

// BlockWrite(Novy, Buffer[i], Precteno, Zapsano);
CloseFile(Novy);

CloseFile(Stary);



Application.MessageBox('Komprese byla úspěšně provedena','Ok',mb_Ok or mb_IconInformation);
end;
end;

Lidi mě už jenom definitivně serou.

Nevim jestli si (od začátku) víc otravnej nebo nudnej, jednim z toho ale jistojistě máš snahu přebít to druhé, aspoň tak :D

Jak naražíš neustále na tu obyč poezii tak obdobně obyčejně dorážim já na tebe.
Jinak stačí pochopit
že tady nejsem zaměstnanej aby mne cokoliv nutilo psát nekonečné rady zabalené navíc pro tvůj nejpohodlnější blahobyt,
věnuji se tomu okrajově,
jakou měrou jsi k tomu přispěl ty sám "je ve hvězdách".