mirror of https://gitlab.com/basile.b/dexed.git
avoid to parse invalid package list
This commit is contained in:
parent
78544f3e3a
commit
d88cc5c4f6
|
@ -178,12 +178,12 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
|
|||
item
|
||||
AutoSize = True
|
||||
Caption = 'Alias'
|
||||
Width = 37
|
||||
Width = 629
|
||||
end
|
||||
item
|
||||
AutoSize = True
|
||||
Caption = 'Library file or folder of sources'
|
||||
Width = 67
|
||||
Width = 172
|
||||
end
|
||||
item
|
||||
AutoSize = True
|
||||
|
|
|
@ -250,8 +250,16 @@ var
|
|||
cli: TFPHTTPClient;
|
||||
begin
|
||||
cbb.Items.Clear;
|
||||
cli := TFPHTTPClient.Create(self);
|
||||
cli := TFPHTTPClient.Create(nil);
|
||||
try
|
||||
try
|
||||
pge := cli.Get('https://code.dlang.org/');
|
||||
except
|
||||
pge := '';
|
||||
end;
|
||||
finally
|
||||
cli.Free;
|
||||
end;
|
||||
// note, also works with regex \"packages\/[a-zA-Z0-9_-]+\"
|
||||
with TStringRange.create(pge) do while not empty do
|
||||
begin
|
||||
|
|
Loading…
Reference in New Issue