Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
ВнизПриветствую!!! Помогите!!! Найти похожие ветки
← →
KvORubin (2002-02-03 12:34) [7]Большое Вам всем спасибо!!! я ужо сам допёр, пока читал первые ответы. вот смотрите:
var i,J: Integer;
begin
for i := 1 to ParamCount do begin
if LowerCase(ParamStr(i)) = "beep" then begin
For J:=1 to 100 do begin
Beep
end;
end
else
if LowerCase(ParamStr(i)) = "exit" then
Application.Terminate;
end;
ТЕМА ЗАКРЫТА!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c