送分了啊！！！关于stream（流）、数据库和文件的问题。(100分)

做一个里程查询功能：
先从数据库中读去数据，通过stream方式将其保存成一种形式的文件。然后能进行查询。
比如：上海 到 南京
更够从文件中查找到两地距离是多？？
有关于这样的原程序例子最好。关于流知识也行！！！！谢谢了
有资料的放到wanglipogood@126.com

最好用的流是内存流

procedure TForm1.Button1Click(Sender: TObject);
var
m,s,s1,s2,s3,s4,s5: string;
stream : TMemoryStream;
begin
stream :=TMemoryStream.Create;
while not query1.Eof do
begin
s:=query1.FieldByName('源城市').AsString;
if(s <>'') then
begin
m :=s
end;
s2:=query1.FieldByName('目的城市').AsString;
if s='' then
begin
if s2='' then
begin
query1.Next;
end
else
begin
s1:=m;
s3:=s1+s2;
s3:=s3+'=';
s4:=query1.FieldByName('距离（公里）').AsString;
s5:=s3+s4;
stream.Write(s5,10);
query1.Next
end
end
else
begin
s3:=s+s2;
s3:=s3+'=';
s4:=query1.FieldByName('距离（公里）').AsString;
s5:=s3+s4;
stream.Write(s5,10);
query1.Next
end;
end;
stream.SaveToFile('xiao');
end;
这样保存的文件怎么把它读出来呢？读出来保存在 stringlist，谢谢，帮帮小弟

先读出你所需要的字符,可以利用COMPARESTR函数进行比较!

朋友用我的号发了问题
可他又不管了
哎
散分

多人接受答案了。