Delphi XE之路(9)Delphi XE android mutilistview

简介: <p style="margin:10px auto; color:rgb(77,77,77); font-family:Tahoma,Geneva,Arial,Helvetica,sans-serif; font-size:13px; line-height:26px"> C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMon

C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMonkeyMobile\ListView

路径下有两个dpk,装完后listview也能实现listbox的效果了

 

复制代码
procedure TFormMain.FillListBox;
var
  // item:TMetropolisUIListBoxItem;
  // listitem:TListboxItem;

  p: PpatientData;
  LItem: TListViewItem;
  i: Integer;
begin
  ListViewPatient.Items.Clear;
  if not cdspatientlist.Active then
    Exit;
  ListViewPatient.BeginUpdate;
  try
    with cdspatientlist do
    begin
      DisableControls;
      try
        i := 1;
        First;
        while not Eof do
        begin
          New(p);
          p.patient_id := FieldByName('patient_id').AsString;
          p.admiss_times := FieldByName('admiss_times').AsInteger;
          p.inpatient_no := FieldByName('inpatient_no').AsString;
          p.bed_no := FieldByName('bed_no').AsString + '';
          p.nurse_level := FieldByName('nurse_level').AsString;
          p.diag := FieldByName('diag').AsString;
          p.name := FieldByName('name').AsString;
          p.sex := FieldByName('sex').AsString;
          p.age := FieldByName('age').AsString;
          p.charge_total := FieldByName('charge_total').AsString;
          p.yue := FieldByName('yue').AsString;

          LItem := ListViewPatient.Items.Add;
          LItem.Text := p.bed_no;

          LItem.Data[TMultiDetailAppearanceNames.Detail1] := '姓名    :' + p.name;
          LItem.Data[TMultiDetailAppearanceNames.Detail2] := '护理等级:' +
            p.nurse_level;
          LItem.Data[TMultiDetailAppearanceNames.Detail3] := '诊断    :' + p.diag;

          if p.sex = '' then
            LItem.BitmapRef := (Image1.MultiResBitmap.Items[0].Bitmap)
          else if p.sex = '' then

            LItem.BitmapRef := (Image1.MultiResBitmap.Items[1].Bitmap);

          if p.sex = '1' then
            LItem.BitmapRef := Image1.MultiResBitmap.Items[1].Bitmap
          else
            LItem.BitmapRef := Image1.MultiResBitmap.Items[0].Bitmap;

          Inc(i);
          Next;

        end;
      finally
        EnableControls;
      end;

    end;
  finally
    ListViewPatient.EndUpdate;
  end;

end;
复制代码

 

 

目录
相关文章
|
Android开发 iOS开发 MacOS
|
Android开发 数据安全/隐私保护
|
编解码 Android开发
[付费视频]Delphi视频Android开发使用静态库(A)和动态库(SO)
关于本视频:前阵子接到一个委托,解决Delphi开发Android程序中串口通信的问题,厂家那边提供了c文件,需要翻译成delphi可用,翻译倒是比较简单。不过后来翻译读写ic卡单元的时候进行不下去了,delphi还提供的不太完整,而且底层提供的也有些bug,然后就有了直接使用.a和.so文件的想法,后来花不少精力,查阅资料和调试,终于调通了。
1373 0
使用delphi 开发多层应用(十八)使用Basic4android 访问RTC 服务的二进制流(照片)
上次写了b4a 通过xmlrpc 访问rtc 的远程服务,有网友询问如何通过b4a 访问RTC web 的二进制流,例如如何下载 服务器上的照片,其实访问二进制流和访问字符串类似,不同的地方是,由于是通过http 协议,对于二进制流,需要先转换成 base64 编码,到客户端后再再把base64 转换回去成二进制码,就可以了。
1018 0
使用delphi 开发多层应用(十六)使用XMLRPC 实现basic4android 远程调用RTC服务
RealThinClient (以下简称RTC) 也是一款delphi 多层开发的框架,由于其底层通讯协议是自己封装SOCK 库,抛弃了 大家诟病的indy,因此表现的非常稳定,效率也非常高,深受很多人的追捧。
1170 0
|
Android开发
使用delphi 开发多层应用(十三)使用Basic4android 直接访问kbmMW server
由于目前delphi xe2 还不直接支持Android 的开发,因此kbmMW 客户端的功能也没办法直接在Android 上运行。 由于kbmMW 为了与java 应用程序通讯,在企业版里面提供了一个JavaClinet. 具体文件名为kbmMWClient.jar。
1030 0
|
JSON 数据库 数据格式
使用delphi 开发多层应用(十四)使用Basic4android 显示kbmMW server数据
前面说了basic4android 直接访问kbmMW server 的方法,由于javaclient 不直接支持服务器端数据库的操作, 要显示数据的内容就需要通过JSON 方式来转换。今天就大概介绍一下转换的办法。
799 0
|
6天前
|
搜索推荐 Android开发 开发者
探索安卓开发中的自定义视图:打造个性化UI组件
【10月更文挑战第39天】在安卓开发的世界中,自定义视图是实现独特界面设计的关键。本文将引导你理解自定义视图的概念、创建流程,以及如何通过它们增强应用的用户体验。我们将从基础出发,逐步深入,最终让你能够自信地设计和实现专属的UI组件。
|
8天前
|
Android开发 Swift iOS开发
探索安卓与iOS开发的差异和挑战
【10月更文挑战第37天】在移动应用开发的广阔舞台上,安卓和iOS这两大操作系统扮演着主角。它们各自拥有独特的特性、优势以及面临的开发挑战。本文将深入探讨这两个平台在开发过程中的主要差异,从编程语言到用户界面设计,再到市场分布的不同影响,旨在为开发者提供一个全面的视角,帮助他们更好地理解并应对在不同平台上进行应用开发时可能遇到的难题和机遇。
|
10天前
|
XML 存储 Java
探索安卓开发之旅:从新手到专家
【10月更文挑战第35天】在数字化时代,安卓应用的开发成为了一个热门话题。本文旨在通过浅显易懂的语言,带领初学者了解安卓开发的基础知识,同时为有一定经验的开发者提供进阶技巧。我们将一起探讨如何从零开始构建第一个安卓应用,并逐步深入到性能优化和高级功能的实现。无论你是编程新手还是希望提升技能的开发者,这篇文章都将为你提供有价值的指导和灵感。