/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/tools/laszip/ |
H A D | laszip.pas | 67 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 D | laszip.pas | 67 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 D | laszip.pas | 67 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 D | laszip.pas | 67 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 D | jpegtran.pas | 156 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 D | cjpeg.pas | 266 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 D | djpeg.pas | 191 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 D | jpegtran.pas | 156 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 D | cjpeg.pas | 266 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 D | djpeg.pas | 191 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 D | concat.pp | 70 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 D | ReplaceText.lpr | 11 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 D | ReplaceText.lpr | 11 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 D | ReplaceText.lpr | 11 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 D | ReplaceText.lpr | 11 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 D | ArgParsers.pas | 31 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 D | ArgParsers.pas | 31 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 D | options.pas | 76 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 D | getexpandedoperand.pas | 54 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 D | methodjumping.pas | 48 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 D | getexpandedoperand.pas | 54 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 D | getexpandedoperand.pas | 54 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 D | getexpandedoperand.pas | 54 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 D | example.pas | 15 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 D | example.pas | 15 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!');
|