8875,"b8a8"
9875,"aJd1"
10850,"d7c8"
11825,"b3b0"
12825,"c9d8"
13800,"cQb1"
14800,"d4c0"
15800,"b9cK"
16800,"dQc4"
17750,"b4c7"
18750,"a5d4"
19725,"c6dK"
20700,"bKa1"
21700,"a2a9"
22675,"c8c9"
23650,"a6a4"
24625,"a2c5"
25625,"bKbQ"
26600,"b8b0"
27575,"b5aQ"
这是用VB的write(写的,对应的读是input)在Delphi像样格式的文件什么读写
9875,"aJd1"
10850,"d7c8"
11825,"b3b0"
12825,"c9d8"
13800,"cQb1"
14800,"d4c0"
15800,"b9cK"
16800,"dQc4"
17750,"b4c7"
18750,"a5d4"
19725,"c6dK"
20700,"bKa1"
21700,"a2a9"
22675,"c8c9"
23650,"a6a4"
24625,"a2c5"
25625,"bKbQ"
26600,"b8b0"
27575,"b5aQ"
这是用VB的write(写的,对应的读是input)在Delphi像样格式的文件什么读写
解决方案 »
- 急!求高手指导!如何让exe文件变成隐藏文件
- 如何获取QQ Music安装路径?
- 能不能利用dbgrid控件显示数据时,能否在其中的某一列显示可选控件
- 快来看啊!奇文!《你该相信谁》
- 他 “zxhong (红)”算是什么东西?
- VoptXP 各位大侠经常用吗?写一个类似的软件需要怎样着手,用delphi好吗?仅仅几个api似乎力不从心,delphi应该如何操作系统底层呢?
- 关于串口通讯,和定时器!100分。
- 下面代码错在哪里?
- 对两个表进行操作,怎样保持两个表的一致性?
- 急急急!!~~~~帮我看看这句话为什么错了!!!
- 简单问题
- Delphi中用adoquery连接Access数据库时,怎样设置连接密码或用什么方法连接???
描述写一个指定的字符串到一个 TextStream 文件。语法object.Write(string)Write 方法语法有如下几部分:部分 描述
object 必需的。始终是一个 TextStream 对象的名字。
string 必需的。要写到文件中去的正文。
说明指定的字符串被写入到文件中,在每个字符串之间没有插入空格或字符。使用 WriteLine 方法写入一个换行符或一个以换行符为结尾的字符串。// 应该是WriteLn,ReadLn
type TSysCharSet = set of Char;
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
Separators是分割符号的集合,而WhiteSpace是表示空格的集合。该函数按照分割符号分割字符串。
procedure TForm1.Button1Click(Sender: TObject);
var
SList:Tstrings;
I:Integer;
SStr: string;
const
Str= '123,456,789';
begin
SList:=TstringList.create;
ExtractStrings([','],[','],Pchar(Str),SList);
for I:=0 to SList.count-1 do
begin
SStr:=SList.Strings[i];
showmessage(SStr);
end;
Slist.Free;
end;
type
TDString=record
s1:string[20]; 第一个字符串长20字节
s2:string[30]; 第二个字符串长30字节
var
f:file of TDString;
s:TDString;begin
assignfile(f,FILENAME);
reset(f);
readln(f,s);
close(f);end;
此时s.s1,s.s2,分别为第一个和第二个字符窜