小编Thu*_*erx的帖子

如何在字符串列表中对数字进行排序?

我有一个包含一些数字的字符串列表.我使用我写的冒泡排序对它们进行了排序.输出是:

18
20
3
44
53
Run Code Online (Sandbox Code Playgroud)

我不明白为什么上面输出而不是我的预期:

3
18
20
44
53
Run Code Online (Sandbox Code Playgroud)

我错过了什么?

delphi sorting delphi-10.1-berlin

2
推荐指数
2
解决办法
2329
查看次数

如何使一个Mutlithreded idhttp调用在StringList上工作

我是Threads的新手,我有一个List包含一个字符串.我的目标是让多个线程对这个List工作,这个代码只针对一个线程,因为我现在正在学习,但是当我按下开始按钮时我得到了AV.

type
  TDemoThread = class(TThread)
  private
    procedure Abort;
  protected
    procedure Execute; override;
  public
    List: TStringList;
  end;

procedure TfrmMain.StartButton1Click(Sender: TObject);
var
  i: integer;
  List: Tstrings;
begin
  for i := 0 to memo1.Lines.Count - 1 do
  begin
    List := TStringList.Create;
    List.Add(memo1.Lines.Strings[i]);
  end;

  Thread := TDemoThread.Create(True);
  Thread.FreeOnTerminate := True;
  Thread.Start;
end;

procedure TDemoThread.Execute;
var
  lHTTP: TIdHTTP;
  i: integer;
  X: Tstrings;
begin
  inherited;
  if Terminated then
    Exit;

  lHTTP := TIdHTTP.Create(nil);
  X := TStringList.Create;
  lHTTP.ReadTimeout := 30000;
  lHTTP.HandleRedirects := True;

  for i := 0 to …
Run Code Online (Sandbox Code Playgroud)

delphi multithreading http delphi-xe8

1
推荐指数
1
解决办法
411
查看次数