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 で動作するように調整されています。RTL に表示されるまで使用できますTStringList.LoadFromUrl。

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;

このコードをユニットに追加して、プロジェクトでこのユニットを使用するだけです。