Хыиуду » 22 фев 2014, 12:27
Первое делается так
while (pos('(', s) >0) do
s:= copy(s, 1, pos('(', s)-1) + copy (s, pos(')', s), length(s);
Второе - устанавливаете нужную длину строки (например, 80 символов). Находите количество символов, которые нужно добавить в начало и конец строки, чтобы выровнять ее по центру:
x:= (80-length(s)) div 2;
Дальше
for i:=1 to x do s:=' '+s+' ';
Самостоятельно разберитесь, что делать, если length(s) нечетная
Первое делается так
while (pos('(', s) >0) do
s:= copy(s, 1, pos('(', s)-1) + copy (s, pos(')', s), length(s);
Второе - устанавливаете нужную длину строки (например, 80 символов). Находите количество символов, которые нужно добавить в начало и конец строки, чтобы выровнять ее по центру:
x:= (80-length(s)) div 2;
Дальше
for i:=1 to x do s:=' '+s+' ';
Самостоятельно разберитесь, что делать, если length(s) нечетная