![]() |
#7 |
Участник
|
Если есть возможность редактировать CU1, то можно добавить в функци MakeText код
Код: Ch[1] := 9; // TAB Ch[2] := 10; // LF Ch[3] := 13; // CR DELCHR(Text, '=', Ch); Код: PROCEDURE MakeCode@109(VAR CodeText@1000000000 : Text[250]) : Integer; VAR Ch@1000000001 : Text[3]; BEGIN Ch[1] := 9; // TAB Ch[2] := 10; // LF Ch[3] := 13; // CR DELCHR(Text, '=', Ch); EXIT(0); END; |
|