FreePascal.ru

Работает =)
Спасибо, не до думал =)
Всё исправил ))
[code]program Aref_progres_Luz_(v1_,_010);
{$mode objfpc}{$H-}
uses DOS,CRT,Windows,renxfiltrus,RenWin;
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
type mem_sys = array[001..255] of byte;
mem_cisla ...

Пишет [Aref_progres_Luz.pas(389,4) Error: Wrong number of parameters specified for call to "filtr_text"]
На строке [filtr_text(b,c,d,e,f,g,h,i,j,mem_sys,mem_cisla);]
Free Pascal Lazarus Project Версия #: 0.9.30
Дата: 2011-03-08
Версия FPC: 2.4.2
Ревизия SVN: 29749
i386-win32-win32/win64
Полностью ...

Система переписана и модернизирована, всё понятно)
Спасибо, вот и чёткий ответ =)

Модуль System не воспринимается почему?
ptr_prog.pas(3,21) Error: Duplicate identifier "SYSTEM"

Мутирую ~>
=)

Пишется в Lazarus-e, фильтры с Lazarus-a в DOS, c DOS-а в Windows, c Windows-а в DOS
У мя работает без отказано =))
Программа:
program Ren_filter;
{$mode objfpc}{$H+}
uses crt, dos, renxfiltrus;
var infil,outfil: text;
q: string; {q - без разницы}
begin
q:=xfil_ruslazdos('Шишки ...

MemAvail и MaxAvail, может кто знает полный код функции, в инете искал не нашёл, или другие варианты замены данных функций, очень надо, в Lazarus-е не работает данная функция!
MemAvail - Возвращает количество всей свободной памяти в куче.
MaxAvail - Возвращает размер самого большого непрерывного ...

Аномалию какую та нашёл, при многократном использовании insert(?,z,8); и Delete(z,8,1); ,после многократного использования z: string;
в процедуре procedure RenPoisc_xfil(f: string; var c: string);
program ren_name;
{$mode objfpc}{$H+}
uses DOS,CRT,Windows,renxfiltrus;
{$IFDEF UNIX}{$IFDEF ...

Brainenjii
Ооо, как интересно!, а бывают настоящие?

Устанавливай Лазарус если в Паскале сидишь, реальная вещь, я например с Лозаруса в DOS окне сижу, просто в начале выбираешь только создать программу, а там по ходу действия освоишься )), всё равно тебе придётся перейти на Лазарус, потому что я тоже так думал!!! =)), у Free Pascal немножко есть ...

Последняя CУПЕР =), только при ожидании или до ожидании - "readkey" всё кряказябами показывает русский символы, можно это как то исправить, в паскале знаю ASCII, как бы это исправить?

А на windows 7 почемуто не действует exe файл, там выскакивает в окошечке
А на windows xp работает =).

Я не очень ...

Помогите пожалуйста, на Лазарусе написать процедуру или код , я не знаю как это должно выглядеть, везде искал, не нашёл чёта.
Как написать так, что-бы при запуске DOS окна с Лазуруса на языке Паскаля или приближённом к нему, окно чтобы не нажимать Alt+Enter , программа сама это делала. Очень надо ...

(Утка в зайце, заяц в шоке.)

А не скажете для чего тут if KeyPressed then Halt; , в двух местах даже.
Чёта, гонял, гонял, прогу и так и сяк, не фига не понял, по ходу лишняя она

Я чёт не пойму, а для чего такое добавление сделали, почему то у меня по книге он во обще отсутствует.
разве const hl5 = '0123456789ABCDEF'; не достаточно?
temp: String [Length(hl5)] = '0123456789ABCDEF';
А так всё работает =) Спосибо)

Я тут посмотрел, тут ходу [Length(hl5)] вообще не нужен.

А ...

:(
Не работат.