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;
Fórum › Delphi
RLE
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".
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 2 hosté