https://forum.lazarus.freepascal.org/index.php/topic,58575.0.html
procedure TMyApplication.prepareParms(var Pars: TStringList);
var i: integer;
sFN: string;
strA: Array of String;
begin
Pars.NameValueSeparator := '=';
sFN := '';
for i := 1 to paramCount do
begin
strA := paramStr(i).split('=');
if strA[0][1]='-' then
strA[0]:=copy(strA[0],2,length(strA[0]));
Pars.Add(strA[0].ToLower+'='+AnsiDequotedStr(strA[1],'"'));
end;
if Pars.count>0 then
begin
for i := 0 to Pars.count-1 do
begin
if (Pars.Names[i]='configfile') OR (Pars.Names[i]='config-file') OR (Pars.Names[i]='config') then
begin
sFN := AnsiDequotedStr(Pars.ValueFromIndex[i],'"');
break;
end;
end;
if not fileexists(sFN) then
writeln('File not found '+sFN)
else
begin
writeln('Reading config file '+sFN);
Pars.Clear;
Pars.LoadFromFile(sFN);
for i := 0 to Pars.Count-1 do
begin
if Pars.ValueFromIndex[i][1]='-' then
Pars.ValueFromIndex[i]:=copy(Pars.ValueFromIndex[i],2,length(Pars.ValueFromIndex[i]));
Pars.ValueFromIndex[i] := AnsiDequotedStr(Pars.Values[Pars.ValueFromIndex[i]],'"');
end;
end;
end;
end;
Debug Evaluate:
PStringItemList(Pars.FList)^[0]
The debugger (any debugger) is limited to whatever info it gets from the compiler. It's called debug-info (..g., "DWARF").
Další tipy!
- you use FpDebug / LazDebuggerFp
-
Your RTL is build with debug-info / and RTL debug-info is set to
"DWARF" (any of the dwarf settings / for FpDebug your can go with
DWARF-3)
- (L.FList)^[0]
- (TStringList(L).FList)^[0]
You can use the "Debug-inspector" (menu: Run > Inspect).
There you can inspect the variable "L", and double-click the "FList" field, then again double click the entry "L.FList" to deref the pointer.
After that you need to edit the expression yourself, and add the "[0]" (or whatever index you want).
Once you got the entry, you can press the "Add watch" button. (you can then edit the index, and add more watches)
Or you can add the following watch (may depend on your fpc version)
- (TStringList(L).FList)^
If your RTL does not have debug info you can try
- ^AnsiString(L.FList)[i*2]
Tip pro Lazarus 3.0
Rozsah pro prohlížení více záznamů e.g. [0..3] místo zadávání po jednom indexu.
https://forum.lazarus.freepascal.org/index.php/topic,63869.0.html
Žádné komentáře:
Okomentovat