Added template support to BasicAuth command

This commit is contained in:
Andreas Schneider 2015-10-18 21:44:25 +02:00
parent 7cc7705b29
commit 282ae6fa28
1 changed files with 4 additions and 0 deletions

View File

@ -353,6 +353,10 @@ var
separator: Char; separator: Char;
i: Integer; i: Integer;
begin begin
FParser.Content := AData;
FParser.Replace;
AData := FParser.Content;
separator := AData[1]; separator := AData[1];
i := 2; i := 2;
while (i < Length(AData)) and (AData[i] <> separator) do while (i < Length(AData)) and (AData[i] <> separator) do