smart-mobile-studio - 使用 Smart Mobile Studio 1.1 从外部文件加载备忘录控件

Question

我如何从外部文件加载备忘录控件

示例：\res\info.txt

谢谢

Answer 1

看起来 SMS 的人已经想出了一个快速而肮脏的解决方案，直到他们可以在 TStringList 中添加一个 LoadFromUrl 方法

http://smartmobilestudio.com/forums/topic/loading-memo-from-file-resinfo-txt/

他们的解决方案LoadFromURL通过帮助对象向 TStringList 类添加方法来工作。下面的代码是从 Smart Mobile Studio 论坛复制的，并经过调整以与 Smart Mobile Studio 1.1 一起使用。您可以使用它 unitilTStringList.LoadFromUrl出现在 RTL 中。

type
  TStringlistHelper = class helper for TStringList
    procedure LoadFromUrl(aUrl:String;Callback: TProcedureRef = nil);
  end;

procedure TStringlistHelper.LoadFromUrl(aUrl:String;
            Callback:TProcedureRef);
var
  mRequest: TW3HttpRequest;
begin
  mRequest:=TW3HttpRequest.Create;
  mRequest.OnDataReady:=procedure (Sender:TW3HttpRequest)
  begin
    self.text:=Sender.ResponseText;
    if assigned(Callback) then Callback;
    w3_callback(sender.free,100);
  end;
  mRequest.Get(aUrl);
end;

只需将此代码添加到某个单元，然后在您的项目中使用该单元。