Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno AbUnZipper přes komponentu Abbrevia (Delphi)

Zdravím, dotaz.

Takto rozbalim z archivu zip soubor čti.txt na disk F a načtu bo komponenty memo

procedure TForm1.Button1Click(Sender: TObject);
begin
AbUnZipper1.BaseDirectory := 'F:\';
AbUnZipper1.FileName := 'F:\Test.zip' ;
AbUnZipper1.Password := 'heslo' ;
AbUnZipper1.ExtractFiles('čti.txt') ;
Memo1.Lines.LoadFromFile('F:\čti.txt');
ShowMessage('Done.') ;
end;

Je nějaky zpusob jak do dostat přimo do komponenty aníž by se rozbalil na disk?

Odpověď na otázku

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny