Procedure TfrmStkFileDataInput_New. LoadFromTxtFile (const AFileName: string;
ARow: TStringList);
Var
Stream: TStream;
The begin
Stream:=TFileStream. Create (AFileName fmShareDenyNone or fmOpenReadWrite);
Try
ARow. LoadFromStream (Stream);
The finally
Stream. Free;
end;
end;

CodePudding user response:

Is writing files may be exclusive open

CodePudding user response:

This is the operating system, in the operation of the disk management, operating system, edit the file, read and write, only one user, only after the user, to another user to read and write it,

If you have to read, is writing files, you can find the file in memory address, the value read by address,