LINUX.ORG.RU

[Pascal] Как нормально реализовать аргументы в паскале?

 


0

1

Приходится потихоньку изучать паскаль. Недавно начал осваивать аргументы для программ. Нагуглил, нашел что-то по функциям paramcount и paramstr. Но как я не бьюсь не могу организовать аргументы. case видимо такое нечто как '--help': не понимает, ему цифры подавай. Это значит программе, надо цифрами аргументы давать?
Подскажите, как прикрутить к ней аргументы, вроде "--help", "-h" и подобных

★★★★
Ответ на: комментарий от nexfwall

> и я не знаю что с этим делать

в таких случаях принято думать

anonymous
()
Ответ на: комментарий от chinarulezzz

А что не так? Формировать код меня никто не учил, поэтому - как в баше формирую...

nexfwall ★★★★
() автор топика
Ответ на: комментарий от chinarulezzz

>> учитывая, что ни один язык с ООП не заставляет юзера пользоваться всеми методами какого-то класса, вопрос не глуп.

ну я рад что ты себе придумал идиотическую проблему и навешиваешь на меня её решение. Можешь не пользоваться классом, но в твоем модуле лишний подкреплённый ни к чему.

проблему придумал ты, со своим

а в случае «без велосипедов» - это будет «хелловорд + модуль custapp & 100500 лишних процедур и функций, среди которых и «велосипедизм» с paramstr»

korvin_ ★★★★★
()
Ответ на: комментарий от korvin_

Хватит уже, давно уже все выяснили

nexfwall ★★★★
() автор топика

uses strutils; ... var typeData: string; ... case AnsiIndexText(typeData, ['-help','-h','-calc']) of 0,1: result:=help(); 2: result:=calc(); -1: result:=NoParams(); end;

anonymous
()
Ответ на: комментарий от anonymous
uses strutils; 
... 
var typeData: string; 
... 
case AnsiIndexText(typeData, ['-help','-h','-calc']) of 
    0,1: result:=help(); 
      2: result:=calc(); 
     -1: result:=NoParams(); 
end;
anonymous
()

Неужели за 4 страницы никто не вспомнил лисп?

ovk48 ★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.