TZipFile und TMemoryStream

[Uwe Raabe]

Ist die Textdatei ANSI-codiert? Dann kannst du die Umwandlung in einen String vereinfachen (falls es ein anderes Encoding ist natürlich auch):

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var
  ms: TMemoryStream;
  Data: TBytes;
  ss: string;
begin
  if fod.Execute then begin
    ms := TMemoryStream.Create;
    try
      ms.LoadFromFile(fod.FileName);
      MyZip.Open(ms, zmRead);
      MyZip.Read(0, Data); //Index 0 erste Datei im Archiv
      MyZip.Close;
    finally
      ms.Free;
    end;
    ss := TEncoding.ANSI.GetString(Data);
    Memo1.Text := ss;
  end;
end;