On Thu, 14 Dec 2017 19:54:49 +0100, Bo Berglund
<bo.bergl...@gmail.com> wrote:
> if AProcess.RunCommand(Command, Parameters.Strings, sTmp) then
> begin
> SvnData.Text := sTmp);
> Result := true;
> end;
>
It works when this is changed to:
var
Params: array of string;
...
begin
....
SetLength(Params, Parameters.Count);
for i := 0 to Parameters.Count-1 do
Params[i] := Parameters[i];
if RunCommand(Command, Params, sTmp) then
begin
SvnData.Text := sTmp;
Result := true;
writeln(SvnData.Text); <= Just for testing
end;
But first I had to fix the real bug:
*** WHAT A STUPID MISTAKE! BANGING MY HEAD! ***
In the caller:
Parms.Add('info');
Parms.Add('-r');
Parms.Add('REV');
Parms.Add('REPOS_PATH');
if GetSvnData(svncmd, Parms, DataBuf) then
The last two Parms.Add's are stupidly wrong. The quotes are leftovers
from when I had literals there as a first test. REV and REPOS_PATH are
*variables*! Removing the quotes is what it took to make it work....
But a good thing came out of this anyway because I was steered towards
the use of RunCommand(), which works just fine and simplifies the code
enormously!
Thanks for that!
--
Bo Berglund
Developer in Sweden
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
