строки не обнуляются несмотря на то, что в каждом блоке-функции стоит
Delete(строка,1,20);. Т.е. тогда, когда используется следующая блок-
функция выводит результат с остатками строки предыдущего файла,
содержащего функцию со строкой.
В чем дело? Должны быть ответы и без хлама всякого, который выводится
из предыдущей блок-функции.
Вот пример файла программы
program prog24;
uses crt;
var
S1,S2,S3,S4,S5,S6:string;
i,L:integer;
{$I c:\prog23a}
{$I c:\prog23b}
{$I c:\prog23v}
{$I c:\prog23g}
{$I c:\prog23d}
begin
RightBlank(S1);
BlankDel(S2,S3);
Upper(S4,S5);
Newstr(S6,L);
Beep;
end.
и пример одного из 5 файлов, содержащих функции
(остальные подобны вплане того, что самостоятельно,
когда их переделываешь в программу они работают)
function Newstr(S6:string; L:integer):integer;
Var
i : integer;
Begin
WriteLn('Zapolnyaem stroku simvolami C. Zadaniye 23 b');
WriteLn('Vvedite kolichestvo simvolov L');
ReadLn(L);
FillChar(S6[i], L, 'C');
S5[0]:=#80; { Устанавливаем байт длины }
for i:=1 to 20 do
begin
Write(S6[i]);
end;
Writeln(' ');
Write('Nagmite Enter');
Delete(S6,1,20);
readln;
End;