读写文件文件

Question

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像样格式的文件什么读写

Answer 1

要写到文本中？用writeln和readln

Answer 2

比较麻烦，普通方法，但要自己分析字符串的http://lysoft.7u7.net

Answer 3

Write 方法
         描述写一个指定的字符串到一个 TextStream 文件。语法object.Write(string)Write 方法语法有如下几部分：部分 描述 
object 必需的。始终是一个 TextStream 对象的名字。 
string 必需的。要写到文件中去的正文。 
说明指定的字符串被写入到文件中，在每个字符串之间没有插入空格或字符。使用 WriteLine 方法写入一个换行符或一个以换行符为结尾的字符串。// 应该是WriteLn,ReadLn

Answer 4

Delphi有一个ExtractStrings函数。该函数定义为： 
    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;

Answer 5

如果字符串有固定长度则：
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,分别为第一个和第二个字符窜