實現如下: ds.first;
while not(ds.Eof) do
begin
L := LV1.Items.Add;
L.Data['Part_No'] := ds.FieldByName('Part_no').AsString;
L.Data['Part_Name'] := ds.FieldByName('Part_name').A
我寫我自己的類來管理Android/iOS應用程序的翻譯和我產生了這個代碼。我將解釋下面的代碼,但它非常簡單和簡短。 unit Localization;
interface
uses
System.Classes, System.SysUtils, Generics.Collections, Vcl.Dialogs;
//this class represents a single