在任何地方进行搜捕,但我看不到这项工作。 当我操作该法典时,我收到一份ESCreateError告诉我,该档案被另一个程序使用。 我对使用TStringList说,我需要你们的帮助! 提前感谢!
这是产生错误之处:即时。 Save ToFile ( DataEmp +emp+emp+ emp+ .txt );
procedure TfmMain.btSaveRetClick(Sender: TObject);
var
select, pos1, pos2, pos3, i: integer;
fileBuffer, rentFile: TextFile;
rCode, emp, buffer, retBuffer: string;
empFile: TStringList;
begin
if lbReturn.Items.Count <> 0 then
begin
select:=Messagedlg( Retourner les items? , mtConfirmation, [mbYes, mbNo],0);
if select=mrYes then
begin
empFile:=TStringList.Create;
AssignFile(fileBuffer, Datafilebuffer.dat );
AssignFile(rentFile, Data
ented.dat );
lbReturn.Items.SaveToFile( Datafilebuffer.dat );
Reset(fileBuffer);
Reset(rentFile);
repeat
begin
ReadLn(fileBuffer, buffer);
pos1:=AnsiPos( | , buffer);
rCode:=AnsiLeftStr(buffer, pos1-2);
repeat
begin
ReadLn(rentFile, retBuffer);
pos2:=AnsiPos(rCode, retBuffer);
if pos2<>0 then
begin
pos3:=AnsiPos( | , retBuffer);
emp:=AnsiRightStr(retBuffer, (Length(retBuffer))-pos3-1);
empFile.LoadFromFile( DataEmp +emp+ +emp+ .txt );
i:=empFile.IndexOf(buffer);
empFile.Delete(i);
empFile.SaveToFile( DataEmp +emp+ +emp+ .txt );
empFile.Clear;
end;
end;
until EOF(rentFile);
end;
until EOF(fileBuffer);
empFile.Free;
end;
end
else
begin
MessageDlg( Aucun item à enregistrer! , mtError, [mbOK], 0);
end;
end;