Перезапись при экспорте

[zm]

DataPort Properties:
FileForamt - Fixed

OnInitDataPort:

CurrFile.QUERYREPLACE(FALSE);
CurrFile.TEXTMODE(True);

OnPreDataPort:

Im:=CurrDataport.IMPORT;
IF NOT Im THEN BEGIN
nm:=CurrDataport.FILENAME;
CurrFile.TEXTMODE(TRUE);
CurrFile.WRITEMODE(TRUE);
IF CurrFile.OPEN(nm) THEN BEGIN
Lenght:=CurrFile.LEN;
CurrFile.SEEK(Lenght);
END ELSE
CurrFile.CREATE(nm);
END;

Вот наверное и все ...