Listview中的奇怪字符

分类：编程问答

如何解决Listview中的奇怪字符

我有一个用于Android项目的代码，用于自动提高Listview Text的高度。固定高度时一切正常。当我激活此代码 for i := 0 to FDMemTable1.RecordCount -1 do begin UName := (FDMemTable1.FieldByName('username').Value); Descr := (FDMemTable1.FieldByName('descr').Value); Ext := (FDMemTable1.FieldByName('ext').Value); Url := (FDMemTable1.FieldByName('vurl').Value); FCanUpdate := False; LItem := ListView1.Items.Add; LItem.Data['UName'] := UName; LItem.Data['Descr'] := Descr; LItem.Data['Ext'] := Ext; LItem.Data['Url'] := Url; FCanUpdate := True; LItem.Adapter.ResetView(LItem); FDMemTable1.Next; end; ListView1.EndUpdate; end; procedure TForm7.ListView1UpdatingObjects(const Sender: TObject; const AItem: TListViewItem; var AHandled: Boolean); var h: integer; LText: TListItemText; begin h := 2; LText := AItem.Objects.FindObjectT<TListItemText>('UName_text'); if LText = nil then begin LText := TListItemText.Create(AItem); LText.Name := 'UName_text'; LText.PlaceOffset.X := 18; LText.PlaceOffset.Y := h; LText.TextColor := TAlphaColorRec.Black; LText.TextAlign := TTextAlign.Leading; LText.TextVertAlign := TTextAlign.Leading; LText.Font.Size := 14; LText.Font.Style := [TFontStyle.fsBold]; end; LText.Width := (Sender as TListView).Width - 18; LText.Text := AItem.Data['UName'].AsString; LText.Height := 22; h := Round(h + LText.Height +7); if AItem.Data['Descr'].AsString <> '' then begin LText := AItem.Objects.FindObjectT<TListItemText>('Descr_text'); if LText = nil then begin LText := TListItemText.Create(AItem); LText.Name := 'Descr_text'; LText.PlaceOffset.X := 18; LText.PlaceOffset.Y := h; LText.TextColor := TAlphaColorRec.Black; LText.TextAlign := TTextAlign.Leading; LText.TextVertAlign := TTextAlign.Leading; LText.WordWrap := True; LText.Font.Size := 13; LText.Font.Style := []; end; LText.Width := (Sender as TListView).Width - 20; LText.Text := AItem.Data['Descr'].AsString; // LText.Height := ListView1.getItemTextHeight(LText)+10; LText.Height := 30; h := Round(h + LText.Height + 5); end; AItem.Height := h; AHandled := True; end; 时，自动高度功能可以正常工作，但在粗体上带有奇怪的字符，有时还会出现“不允许重复”错误消息。 在Windows上工作正常，但在Android上我有。

@nuxtjs/router

我手机上的屏幕截图。

enter image description here

这出了什么问题？

解决方法

我发现此代码有问题。 我称此过程为TThread.CreateAnonymousThread。 当我删除所有这些都很好。我发布了正确的代码以使用代码创建ListView项（在这种情况下为2个文本和1个来自url的图像）。

procedure TForm9.LVC;
var
  i,TLikes,LVIHeight,ImgH,ImgW: integer;
  UName,Descr,Ext,ThumbUrl,Url: UnicodeString;
  LItem : TListViewItem;
begin
  RESTRequest1.Execute;
  FDMemTable1.First;
  for i := 0 to FDMemTable1.RecordCount -1 do
begin
  UName := FDMemTable1.FieldByName('username').Value;
  Descr := FDMemTable1.FieldByName('descr').Value;
  Ext := FDMemTable1.FieldByName('ext').Value;
  ThumbUrl := FDMemTable1.FieldByName('image_url').Value;
  Url := FDMemTable1.FieldByName('vurl').Value;
  TLikes := FDMemTable1.FieldByName('TotalLikes').Value;
  if FDMemTable1.FieldByName('imgh').Value <>  '' then
    begin
      ImgH := StrToInt(FDMemTable1.FieldByName('imgh').Value);
      ImgW := StrToInt(FDMemTable1.FieldByName('imgw').Value);
      LVIHeight := round((ListView1.Width / ImgW) * ImgH);
    end
  else
    begin
      ImgH := 0;
      ImgW := 0;
      LVIHeight := 0;
    end;
  ListView1.BeginUpdate;
    FCanUpdate := False;
    LItem := ListView1.Items.Add;
    LItem.Data['UName'] := UName;
    LItem.Data['Descr'] := Descr;
    LItem.Data['Ext'] := Ext;
    LItem.Data['ThumbUrl'] := ThumbUrl;
    LItem.Data['Url'] := Url;
    LItem.Data['Likes'] := TLikes;
    LItem.Data['ImgH'] := ImgH;
    LItem.Data['ImgW'] := ImgW;
    LItem.Data['LVIHeight'] := LVIHeight;
    FCanUpdate := True;
    LItem.Adapter.ResetView(LItem);
  ListView1.EndUpdate;
  FDMemTable1.Next;
end;
end;

procedure TForm9.FormCreate(Sender: TObject);
begin
  FCanUpdate := True;
end;

procedure TForm9.FormShow(Sender: TObject);
begin
   LVC;
end;

procedure TForm9.ListView1UpdatingObjects(const Sender: TObject;
  const AItem: TListViewItem; var AHandled: Boolean);
var
  h: integer;
  LText: TListItemText;
  LImage: TListItemImage;
  LImageURL: String;
  foto : TBitmap;
begin
  if not FCanUpdate then
    Exit;

  h := 2;
  LText := AItem.Objects.FindObjectT<TListItemText>('UName_text');
  if LText = nil then
   begin
     LText := TListItemText.Create(AItem);
     LText.Name := 'UName_text';
     LText.PlaceOffset.X := 18;
     LText.PlaceOffset.Y := h;
     LText.TextColor := TAlphaColorRec.Black;
     LText.TextAlign := TTextAlign.Leading;
     LText.TextVertAlign := TTextAlign.Leading;
     LText.Font.Size := 14;
     LText.Font.Style := [TFontStyle.fsBold];
   end;
  LText.Width := (Sender as TListView).Width - 18;
  LText.Text := AItem.Data['UName'].AsString;
  LText.Height := 22;
  h := Round(h + LText.Height +7);

  if AItem.Data['ThumbUrl'].AsString <> '' then
  begin
    LImage := AItem.Objects.FindObjectT<TListItemImage>('MImage');
    if LImage = nil then
    begin
      LImage := TListItemImage.Create(AItem);
      LImage.Name := 'MImage';
      LImage.Bitmap:=Nil;
      LImage.Align := TListitemalign.Leading;
      LImage.VertAlign := TListItemAlign.Leading;
      LImage.ScalingMode := TImageScalingMode.StretchWithAspect;
      LImage.PlaceOffset.X := 0;
      LImage.PlaceOffset.Y := h;
      LImage.Bitmap := TBitmap.Create;
      LImage.OwnsBitmap := True;
      LImage.Visible := True;
    end;
    LImage.Width := ListView1.Width;
    LImage.Height := AItem.Data['LVIHeight'].AsInteger;
    LImageURL := AItem.Data['ThumbUrl'].AsString;
      TThread.CreateAnonymousThread(
         procedure
            begin
              foto := TBitmap.Create;
              fnLoadImgFromUrl(LImageURL,foto);
              LImage.OwnsBitmap := True;
              LImage.Bitmap := foto;
            end).Start;
    h := Round(h + LImage.Height + 5);
  end;

  if AItem.Data['Descr'].AsString <> '' then
  begin
    LText := AItem.Objects.FindObjectT<TListItemText>('Descr_text');
    if LText = nil then
      begin
        LText := TListItemText.Create(AItem);
        LText.Name := 'Descr_text';
        LText.PlaceOffset.X := 18;
        LText.PlaceOffset.Y := h;
        LText.TextColor := TAlphaColorRec.Black;
        LText.TextAlign := TTextAlign.Leading;
        LText.TextVertAlign := TTextAlign.Leading;
        LText.WordWrap := True;
        LText.Font.Size := 13;
        LText.Font.Style := [];
      end;
    LText.Width := (Sender as TListView).Width - 20;
    LText.Text := AItem.Data['Descr'].AsString;
    LText.Height := ListView1.getItemTextHeight(LText)+10;
    h := Round(h + LText.Height + 5);
  end;
  AItem.Height := h;
  AHandled := True;
end;

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

导入项目后报错问题
依赖报错 idea导入项目后依赖报错，解决方案：https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错：更换其他版本 无法下载依赖可参考：https://blog.csdn.net/weixin_42628809/a
idea不能识别yaml文件
使用mybatis plus常见错误
错误1：代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
gradle常见问题与错误
错误1：gradle项目控制台输出为乱码 # 解决方案：https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
Mybatis Plus传入参数0不起作用
错误还原：在查询的过程中，传入的workType为0时，该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
linux中make编译源码包失败
报错如下，gcc版本太低 ^ server.c:5346:31: 错误：‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
微服务启动错误：Command line is too long. Shorten command line for
解决方案1 1、改项目中.idea/workspace.xml配置文件，增加dynamic.classpath参数 2、搜索PropertiesComponent，添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
vue常见错误
删除根组件app.vue中的默认代码后报错：Module Error (from ./node_modules/eslint-loader/index.js): 解决方案：关闭ESlint代码检测，在项目根目录创建vue.config.js，在文件中添加 module.exports = { lin
spark常见错误
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
matplotlib报错：AttributeError: module 'backend_interagg' has no attribute 'FigureCanvas'. Did you mean: 'FigureCanvasAgg'?
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
gitlab登录失败，报错：This challenge page was accidentally cached by an intermediary and is no longer available.
设置时间 控制面板
后端开发常见错误
错误1：Request method ‘DELETE‘ not supported 错误还原：controller层有一个接口，访问该接口时报错：Request method ‘DELETE‘ not supported 错误原因：没有接收到前端传入的参数，修改为如下 参考 错误2：cannot r
docker常见错误
错误1：启动docker镜像时报错：Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法：重启docker -&gt; systemctl r
idea常见错误
错误1：private field ‘xxx‘ is never assigned 按Altʾnter快捷键，选择第2项 参考：https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2：启动时报错，不能找到主启动类 #
pip安装依赖失败
报错如下，通过源不能下载，最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
maven常见错误
错误1：maven打包报错 错误还原：使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
cloud项目中常见错误
错误1：服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
springboot常见错误
错误1：运行项目后报如下错误 解决方案 报错2：Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案：在pom.
springmvc拦截器中使用redisTemplate报空指针异常
参考 错误原因 过滤器或拦截器在生效时，redisTemplate还没有注入 解决方案：在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
vite报错：npm ERR! command C:WINDOWSsystem32cmd.exe /d /s /c C:UsersychenAppDataLocalTempnpx-dde1c848.cmd
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot