Модератор: Модераторы
naurzum писал(а):правильно ли я понял, что каталог RTL для FreeBSD в архиве с исходниками находится в C:\fpcbuild\fpcsrc\rtl\freebsd
и где найти утилиту make ? ее нужно скопировать в C:\fpcbuild\fpcsrc\rtl\freebsd?
downloading...
10% =---------
downloading...
20% ==--------
downloading...
30% ===-------
ADR писал(а):как в консоле изменить какой-нить символ на другой? напр:
procedure TMyApplication.DoRun;
var
ErrorMsg: String;
I:Integer;
begin
writeln('Progress');
{ add your program here }
for I:=0 to 100 do
begin
write(IntToStr(I));
write('% -----');
sleep(100);
write(#13);
end;
Readln;
// stop program loop
Terminate;
end;
write(#8#8#8);
broom писал(а):Запуск. Программа запускается, но нет окна ввода/вывода.
Останавливаю и исполнение завершается.
Как получить окно ввода/вывода?
Maxizar писал(а):
Возможно есть что-то более крутое и навороченное, но это самое просто решения ИМХО конечно... Смысл втом, что мы тупо удаляем предыдущую введеную строчку и все.
Можно например вообще прям по одному коду удалять (БэкСпейс имеет код #8) скажем нужно удалить последних 3 символа пишем так:
- Код: Выделить всё
write(#8#8#8);
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: Vlad04 и гости: 2