社区
Delphi
帖子详情
问一下‘流’和Tlist的问题,谢谢! !
shadows
2003-03-07 09:48:22
比如我写了两个自定义结构
TRec1 = Record
List :Tlist;
end;
TRec2 =Record
Int : Integer;
Str : String;
end;
var
rec TRec2
rec.int := 12; rec.str := 'adsad'
现在我想用结构1(TRec1)中的List的items[0],存储rec,然后再用流的方法,写入一个文件,我对流的方法不熟,请问怎么写入,和读出来?谢谢,分不够再加!
...全文
38
3
打赏
收藏
问一下‘流’和Tlist的问题,谢谢! !
比如我写了两个自定义结构 TRec1 = Record List :Tlist; end; TRec2 =Record Int : Integer; Str : String; end; var rec TRec2 rec.int := 12; rec.str := 'adsad' 现在我想用结构1(TRec1)中的List的items[0],存储rec,然后再用流的方法,写入一个文件,我对流的方法不熟,请问怎么写入,和读出来?谢谢,分不够再加!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sysu
2003-03-07
打赏
举报
回复
var rec1: TRec1;
// 写入
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
rec.Int := 12;
rec.Str := 'adsad';
rec1.List := TList.Create;
rec1.List.Add(@rec);
fs := TFileStream.Create('d:\test', fmCreate);
fs.Write(TRec2(rec1.List.Items[0]^).Int, SizeOf(TRec2(rec1.List.Items[0]^).Int));
fs.Write(TRec2(rec1.List.Items[0]^).Str[1], Length(TRec2(rec1.List.Items[0]^).Str));
fs.Free;
end;
// 读取
procedure TForm1.Button2Click(Sender: TObject);
const bufSize = 256;
var
fs: TFileStream;
buf: array [1..bufSize] of Char;
numRead: Integer;
begin
fs := TFileStream.Create('d:\test', fmOpenRead);
fs.Read(rec.Int, SizeOf(rec.Int));
rec.Str := '';
repeat
numRead := fs.read(buf, bufSize);
if numRead > 0 then rec.Str := rec.Str + Copy(buf, 1, numRead);
until numRead <> bufSize;
rec1.List := TList.Create;
rec1.List.Add(@rec);
ShowMessage(TRec2(rec1.List.Items[0]^).Str);
fs.Free;
end;
MyCrooner
2003-03-07
打赏
举报
回复
如果全部存成字符串,倒是很方便.
list := TStringList.Create;
list.add( IntToStr(12));
list.add( 'adsad');
list.add(.....
..
list.saveToFile('文件名');
下次读取:
list := TStringList.Create;
list.LoadFromFile('文件名');
for i:=0 to list.count -1 do
string1 := list[i]; //可以用些变量读取
//可以判断string1的类型,如果需要可以转换成相应的类型.
jy_1201
2003-03-07
打赏
举报
回复
帮你Up
TList有一个Add方法,原形如下:
Function Add(Item:Pointer):Interger;
我想Add时Item可以指向一个对象吧。
这个我也没用过,查查Delphi帮助吧
List
<T> 转为 File 再转为 MultipartFile
注:文章皆为个人纪录,可用性请以最终结果为准,若有错还请大佬们指出,
谢谢
! 调用过程 主要导包 import cn.hutool.core.io.FileUtil; 依赖 <!-- ...
Java8新特性 利用
流
和Lambda表达式对
List
集合进行处理
Map, Map,
List
<Person>>> map2 =
list
.stream().collect(Collectors.groupingBy(t->t.getName(),Collectors.groupingBy(t->t.getAge()))); //2.8 分组并计算综合 Collectors.summarizingLong() Map, Map, ...
使用ffmpeg添加rtsp字幕
流
(t140)
使用ffmpeg添加rtsp字幕
流
(t140) 使用ffmpeg推送一个视频文件到rtsp非常简单: ffmpeg -re -i subtitle.mkv -vcodec copy -acodec copy -rtsp_transport tcp -f rtsp rtsp://127.0.0.1:10554/sVideo 但...
老司机带你聊聊接口限
流
!!!
导读 前几天和一个朋友讨论了他们公司的系统
问
题
,传统的单体应用,集群部署,他说近期服务的并发量可能会出现瞬时增加的风险,虽然部署了集群,但是通过压测后发现请求...
List
<Map>集合如何使用Stream
流
进行排序
起因:最近在工作中遇到一个
问
题
,... 0 }, { "monthtime": "10", "operationtime": 0 }, { "monthtime": "11", "operationtime": 0 }, { "monthtime": "12", "operationtime": 11033 } ] } ] 如有
问
题
,请指正,
谢谢
!
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章