FreePascal.ru

спасибо!! проверим))

вот полная задача Uses SysUtils,cgivars;

var
i:integer; h:string;
begin
writeln('status: 200 ok');
writeln('Content-type:text/html');
writeln;
writeln('<TABLE border="4">');
h:=getEnvironmentVariable('QUERY_STRING');
For I:=1 to CGIVarCount do
begin

if ((pos(h,CgiVarNames[i])<>0) or (h ...

С таким подходом к делу - пусть лучше вовремя выгонят. Это я серьезно, займетесь хоть тем что получается и больше нравится.
поздно уже 4 курс

Добавлено спустя 2 минуты 22 секунды:
if ((pos(h,CgiVarNames[i])<>0) or (h='')) then begin
if (copy(CgiVarNames[i],1,length(h))=h) then begin ребят вот ...

(сорри) Ребят если кого не заруднит помогите с решением(ну типо сделать задачу помогите) просто код сделайте аааа, вообще по зарез(2 дня и все мне пи***ц будет, выгонят(((( )

[вырезано] если кого не заруднит помогите с решением(ну типо сделать задачу помогите) просто код сделайте аааа, вообще по зарез(2 дня и все мне пи***ц будет, выгонят(((( )

Ребят срочно помоги если знаете!! как сделать из этого кода чтобы при нажатии на кнопку он выводил эти данные по порядку при одном нажатии date при другом нажатии time и т.д
action=date - скрипт возвращает текущую дату
action=time - скрипт возвращает текущее время
action=datetime - скрипт ...