Копирование объектов из 6(2009) в 5

[Sancho]

получилось что-то вроде такого:

Цитата:

F.TEXTMODE(TRUE);
F.OPEN(FileName);

F1.CREATE(NewFileName);
F1.TEXTMODE(TRUE);
F1.WRITEMODE(TRUE);

REPEAT
CLEAR(fString);
F.READ(fString);

IF TRIM(fString) = 'FIELDGROUPS' THEN
_LineCounter := 3;

IF _LineCounter = 0 THEN
F1.WRITE(fString)
ELSE
_LineCounter -=1;

UNTIL F.POS = F.LEN;

F.CLOSE;
F1.CLOSE;

_LineCounter - простой интежер
TRIM:
EXIT(DELCHR(str,'=',' '));