Einzelnen Beitrag anzeigen

tomkupitz

Registriert seit: 26. Jan 2011
319 Beiträge
 
Delphi 11 Alexandria
 
#17

AW: Delphi Project Viewer 1.0

  Alt 9. Mär 2017, 14:22
Memo bleibt leer. Keine Delphi Meldung. Unteres geht...

Code:
  SrcS := TFileStream.Create(Src, fmOpenRead);
  DestS := TFileStream.Create(Dest, fmCreate);
  try
    ObjectResourceToText(SrcS, DestS);
    if FileExists(Src) and FileExists(Dest) then
      Result := True
    else
      Result := False;
  finally
    SrcS.Free;
    DestS.Free;
  end;
  Mit Zitat antworten Zitat