Einzelnen Beitrag anzeigen

Curse4Life

Registriert seit: 19. Jun 2004
36 Beiträge
 
#1

Problem bei ReadBuffer ;(

  Alt 12. Aug 2004, 11:16
Hi, ich habe jetzt seit ein paar Tagen .net und arbeite jetzt ein wenig damit.
So wollte ich eine alte Unit von mir in einer VLC Anwendung verwenden, hat auch vieles geklappt, aber bei dieser Procedure bekomme ich einen Fehler:

Delphi-Quellcode:
procedure BIB_FileReplaceString(FileName, searchstring, replacestring: string);
var
  fs: TFileStream;
  S: string;
begin
   // Erstellen der Variablen für die Datei
   fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone);
   try
      SetLength(S, fs.Size);
      fs.ReadBuffer(S[1], fs.Size);
   finally
      fs.Free;
   end;

   // Ersetzen des Textes
   S := StringReplace(S, SearchString, replaceString, [rfIgnoreCase]);
   fs := TFileStream.Create(FileName, fmCreate);
   try
      fs.WriteBuffer(S[1], Length(S));
   finally
      fs.Free;
   end;
end;

Durch ausschneiden compilieren, ausschneiden kompilieren habe ich den Fehler gefunden, es liegt an dieser Zeile:
fs.ReadBuffer(S[1], fs.Size);
Die Fehlermeldung lautet:
[Error] BIB_Dateibearbeitung.pas(253): String element cannot be passed to var parameter


Ich hoffe jemand kann mir helfen


mfg
Curse4Life
  Mit Zitat antworten Zitat