Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: LZMA SDK - String in Stream packen

    Delphi
    by alzaimar, 10. Dez 2008
  function TLZMAAlone.CompressString(str: String): String;
  var
  inStream: TStringStream;
  outStream: TStringStream;
  begin
  inStream := TStringStream.Create(str);
  outStream := TMemoryStream.Create('');
  try
  CompressStream(inStream, outStream);
  Result := outStream.DataString;