Home
last modified time | relevance | path

Searched refs:ParamStr (Results 1 – 25 of 1439) sorted by relevance

12345678910>>...58

/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/tools/laszip/
H A Dlaszip.pas67 if ParamStr(i) = '-dry' then
71 else if ParamStr(i) = '-verbose' then
75 else if ParamStr(i) = '-range' then
83 else if ParamStr(i) = '-h' then
87 else if ParamStr(i) = '-i' then
90 file_name_in := ParamStr(i);
92 else if ParamStr(i) = '-o' then
95 file_name_out = ParamStr(i);
99 WriteLn(Format('cannot understand argument "%s"', [ParamStr(i)]));
/dports/editors/lazarus/lazarus/components/fpvectorial/tools/laszip/
H A Dlaszip.pas67 if ParamStr(i) = '-dry' then
71 else if ParamStr(i) = '-verbose' then
75 else if ParamStr(i) = '-range' then
83 else if ParamStr(i) = '-h' then
87 else if ParamStr(i) = '-i' then
90 file_name_in := ParamStr(i);
92 else if ParamStr(i) = '-o' then
95 file_name_out = ParamStr(i);
99 WriteLn(Format('cannot understand argument "%s"', [ParamStr(i)]));
/dports/editors/lazarus-qt5/lazarus/components/fpvectorial/tools/laszip/
H A Dlaszip.pas67 if ParamStr(i) = '-dry' then
71 else if ParamStr(i) = '-verbose' then
75 else if ParamStr(i) = '-range' then
83 else if ParamStr(i) = '-h' then
87 else if ParamStr(i) = '-i' then
90 file_name_in := ParamStr(i);
92 else if ParamStr(i) = '-o' then
95 file_name_out = ParamStr(i);
99 WriteLn(Format('cannot understand argument "%s"', [ParamStr(i)]));
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/tools/laszip/
H A Dlaszip.pas67 if ParamStr(i) = '-dry' then
71 else if ParamStr(i) = '-verbose' then
75 else if ParamStr(i) = '-range' then
83 else if ParamStr(i) = '-h' then
87 else if ParamStr(i) = '-i' then
90 file_name_in := ParamStr(i);
92 else if ParamStr(i) = '-o' then
95 file_name_out = ParamStr(i);
99 WriteLn(Format('cannot understand argument "%s"', [ParamStr(i)]));
/dports/graphics/fpc-pasjpeg/fpc-3.2.2/packages/pasjpeg/examples/
H A Djpegtran.pas156 arg := ParamStr(argn);
185 if (keymatch(ParamStr(argn), 'none', 1)) then
188 if (keymatch(ParamStr(argn), 'comments', 1)) then
191 if (keymatch(ParamStr(argn), 'all', 1)) then
222 arg := ParamStr(argn);
296 arg := ParamStr(argn);
353 arg := ParamStr(argn);
401 scansarg := ParamStr(argn);
472 progname := ParamStr(0);
508 outfilename := ParamStr(file_index+1);
[all …]
H A Dcjpeg.pas266 arg := ParamStr(argn);
304 if (keymatch(ParamStr(argn), 'int', 1)) then
309 if (keymatch(ParamStr(argn), 'fast', 2)) then
354 arg := ParamStr(argn);
410 Val(ParamStr(argn), quality, code);
425 qslotsarg := ParamStr(argn);
438 qtablefile := ParamStr(argn);
452 arg := ParamStr(argn);
592 progname := ParamStr(0);
633 outfilename := ParamStr(file_index+1);
[all …]
H A Ddjpeg.pas191 arg := ParamStr(argn);
218 Val(ParamStr(argn), value, code);
230 if (keymatch(ParamStr(argn), 'int', 1)) then
233 if (keymatch(ParamStr(argn), 'fast', 2)) then
247 if (keymatch(ParamStr(argn), 'fs', 2)) then
250 if (keymatch(ParamStr(argn), 'none', 2)) then
304 assign(mapfile, ParamStr(argn));
331 arg := ParamStr(argn);
522 progname := ParamStr(0);
564 outfilename := ParamStr(file_index+1);
[all …]
/dports/lang/fpc-source/fpc-3.2.2/packages/pasjpeg/examples/
H A Djpegtran.pas156 arg := ParamStr(argn);
185 if (keymatch(ParamStr(argn), 'none', 1)) then
188 if (keymatch(ParamStr(argn), 'comments', 1)) then
191 if (keymatch(ParamStr(argn), 'all', 1)) then
222 arg := ParamStr(argn);
296 arg := ParamStr(argn);
353 arg := ParamStr(argn);
401 scansarg := ParamStr(argn);
472 progname := ParamStr(0);
508 outfilename := ParamStr(file_index+1);
[all …]
H A Dcjpeg.pas266 arg := ParamStr(argn);
304 if (keymatch(ParamStr(argn), 'int', 1)) then
309 if (keymatch(ParamStr(argn), 'fast', 2)) then
354 arg := ParamStr(argn);
410 Val(ParamStr(argn), quality, code);
425 qslotsarg := ParamStr(argn);
438 qtablefile := ParamStr(argn);
452 arg := ParamStr(argn);
592 progname := ParamStr(0);
633 outfilename := ParamStr(file_index+1);
[all …]
H A Ddjpeg.pas191 arg := ParamStr(argn);
218 Val(ParamStr(argn), value, code);
230 if (keymatch(ParamStr(argn), 'int', 1)) then
233 if (keymatch(ParamStr(argn), 'fast', 2)) then
247 if (keymatch(ParamStr(argn), 'fs', 2)) then
250 if (keymatch(ParamStr(argn), 'none', 2)) then
304 assign(mapfile, ParamStr(argn));
331 arg := ParamStr(argn);
522 progname := ParamStr(0);
564 outfilename := ParamStr(file_index+1);
[all …]
/dports/lang/fpc-source/fpc-3.2.2/tests/utils/
H A Dconcat.pp70 if UpperCase(ParamStr(1))='-i' then
77 if DirectoryExists(ParamStr(ParamCount)) then
79 Writeln('Destination "',ParamStr(ParamCount),'" is a directory');
82 Assign(Dst,ParamStr(ParamCount));
88 Writeln('Unable to create destination file "',ParamStr(ParamCount),'"');
95 if not FileExists(ParamStr(I)) then
99 Writeln('File "',ParamStr(I),'" does not exist');
104 else if DirectoryExists(ParamStr(I)) then
106 Writeln('"',ParamStr(I),'" is a directory');
110 FileList.Add(ParamStr(I));
/dports/editors/lazarus/lazarus/tools/install/win/ReplaceText/
H A DReplaceText.lpr11 s.LoadFromFile(ParamStr(1));
14 x := AnsiReplaceText(s[i], ParamStr(2), ParamStr(3));
18 s.SaveToFile(ParamStr(1));
20 DebugLn(['Replaced in ', j, ' lines for file ', ParamStr(1), ' ',ParamStr(2)]);
/dports/editors/lazarus-qt5/lazarus/tools/install/win/ReplaceText/
H A DReplaceText.lpr11 s.LoadFromFile(ParamStr(1));
14 x := AnsiReplaceText(s[i], ParamStr(2), ParamStr(3));
18 s.SaveToFile(ParamStr(1));
20 DebugLn(['Replaced in ', j, ' lines for file ', ParamStr(1), ' ',ParamStr(2)]);
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/tools/install/win/ReplaceText/
H A DReplaceText.lpr11 s.LoadFromFile(ParamStr(1));
14 x := AnsiReplaceText(s[i], ParamStr(2), ParamStr(3));
18 s.SaveToFile(ParamStr(1));
20 DebugLn(['Replaced in ', j, ' lines for file ', ParamStr(1), ' ',ParamStr(2)]);
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/tools/install/win/ReplaceText/
H A DReplaceText.lpr11 s.LoadFromFile(ParamStr(1));
14 x := AnsiReplaceText(s[i], ParamStr(2), ParamStr(3));
18 s.SaveToFile(ParamStr(1));
20 DebugLn(['Replaced in ', j, ' lines for file ', ParamStr(1), ' ',ParamStr(2)]);
/dports/games/hedgewars-server/hedgewars-src-1.0.0/hedgewars/
H A DArgParsers.pas31 function ParamStr(i: LongInt): shortstring; in ParamStr() function
49 function ParamStr(i: LongInt): shortstring; in ParamStr() function
51 ParamStr:= StrPas(PPCharArray(operatingsystem_parameter_argv)^[i])
191 cVideoFramerateNum:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);
192 cVideoFramerateDen:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);
193 RecPrefix:= ParamStr(paramIndex); inc(paramIndex);
194 cAVFormat:= ParamStr(paramIndex); inc(paramIndex);
195 cVideoCodec:= ParamStr(paramIndex); inc(paramIndex);
196 cVideoQuality:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);
331 wrongParameter:= parseParameter( ParamStr(index), ParamStr(nextIndex), paramIndex);
[all …]
/dports/games/hedgewars/hedgewars-src-1.0.0/hedgewars/
H A DArgParsers.pas31 function ParamStr(i: LongInt): shortstring; in ParamStr() function
49 function ParamStr(i: LongInt): shortstring; in ParamStr() function
51 ParamStr:= StrPas(PPCharArray(operatingsystem_parameter_argv)^[i])
191 cVideoFramerateNum:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);
192 cVideoFramerateDen:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);
193 RecPrefix:= ParamStr(paramIndex); inc(paramIndex);
194 cAVFormat:= ParamStr(paramIndex); inc(paramIndex);
195 cVideoCodec:= ParamStr(paramIndex); inc(paramIndex);
196 cVideoQuality:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);
331 wrongParameter:= parseParameter( ParamStr(index), ParamStr(nextIndex), paramIndex);
[all …]
/dports/lang/fpc-source/fpc-3.2.2/tests/utils/avx/
H A Doptions.pas76 if copy(ParamStr(i), 1, 1) = '-' then
78 sParam := copy(ParamStr(i) + ' ', 2, 1)[1];
79 sValue := copy(ParamStr(i), 3, length(ParamStr(i)));
103 writeln(format('invalid param "%s"', [ParamStr(i)]));
112 writeln(format('invalid param "%s"', [ParamStr(i)]));
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/codetools/examples/
H A Dgetexpandedoperand.pas54 writeln(' ',ParamStr(0));
55 writeln(' ',ParamStr(0),' <filename> <X> <Y>');
56 writeln(' ',ParamStr(0),' ',Filename,' ',X,' ',Y);
62 Filename:=ParamStr(1);
63 X:=StrToInt(ParamStr(2));
64 Y:=StrToInt(ParamStr(3));
H A Dmethodjumping.pas48 writeln(' ',ParamStr(0));
49 writeln(' ',ParamStr(0),' <filename> <X> <Y>');
56 ExpandedFilename:=ExpandFileNameUTF8(ParamStr(1));
57 X:=StrToInt(ParamStr(2));
58 Y:=StrToInt(ParamStr(3));
/dports/editors/lazarus/lazarus/components/codetools/examples/
H A Dgetexpandedoperand.pas54 writeln(' ',ParamStr(0));
55 writeln(' ',ParamStr(0),' <filename> <X> <Y>');
56 writeln(' ',ParamStr(0),' ',Filename,' ',X,' ',Y);
62 Filename:=ParamStr(1);
63 X:=StrToInt(ParamStr(2));
64 Y:=StrToInt(ParamStr(3));
/dports/editors/lazarus-qt5/lazarus/components/codetools/examples/
H A Dgetexpandedoperand.pas54 writeln(' ',ParamStr(0));
55 writeln(' ',ParamStr(0),' <filename> <X> <Y>');
56 writeln(' ',ParamStr(0),' ',Filename,' ',X,' ',Y);
62 Filename:=ParamStr(1);
63 X:=StrToInt(ParamStr(2));
64 Y:=StrToInt(ParamStr(3));
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/codetools/examples/
H A Dgetexpandedoperand.pas54 writeln(' ',ParamStr(0));
55 writeln(' ',ParamStr(0),' <filename> <X> <Y>');
56 writeln(' ',ParamStr(0),' ',Filename,' ',X,' ',Y);
62 Filename:=ParamStr(1);
63 X:=StrToInt(ParamStr(2));
64 Y:=StrToInt(ParamStr(3));
/dports/lang/fpc-source/fpc-3.2.2/packages/aspell/examples/
H A Dexample.pas15 Writeln('Usage: ', ParamStr(0), ' <lang> <word1> <word2> ...')
18 Speller.Language := ParamStr(1);
21 s := Speller.SpellCheck(ParamStr(i)); // spellcheck each word
23 Write(ParamStr(i), ' is wrong. Here are some suggestions: ');
28 Writeln(ParamStr(i), ' is spelled correctly!');
/dports/textproc/fpc-aspell/fpc-3.2.2/packages/aspell/examples/
H A Dexample.pas15 Writeln('Usage: ', ParamStr(0), ' <lang> <word1> <word2> ...')
18 Speller.Language := ParamStr(1);
21 s := Speller.SpellCheck(ParamStr(i)); // spellcheck each word
23 Write(ParamStr(i), ' is wrong. Here are some suggestions: ');
28 Writeln(ParamStr(i), ' is spelled correctly!');

12345678910>>...58