高手请进！200分送上谢谢(200分)

我想用程序生成形如：
1 aaaaaaaaaaaa
2 bbbbbbbbbbbb
.....
的文本文件并对之进行查询比如：where id=1 得到 aaaaaaaaaaaaaaaaa
谁能帮我解决这个问题，200分送上谢谢

你不会是想写一个对文本进行解析的SQL吧：）
用INI文件

定義個type吧!
如: TLineText=record
no:string;
linetext:string;
end;
TText:ARRAY[0..YOURMAXINT] OF TLineText;
這樣你就可靈活操作了,記得要寫出最高效的Search算法!

当然不是SQL，实际上是事件驱动，如接受到ID=1，则EDIT1。TEXT=aaaaaaaaaaaaaaaaaaaaa

關注

//创建
FUNCTION FtCreateFile(vFile:STRING;vLength:INTEGER):BOOL;
VAR lList:TStringList; k,m,n:INTEGER;sTemp:STRING;
BEGIN
lList:=TStringList.Create;
FOR k:=0 TO 25 DO
BEGIN
sTemp:='';
FOR m:=1 TO vLength DO sTemp:=sTemp+chr(ord('a')+k);
lList.Add(sTemp);
END;
lList.SaveToFile(vFile);
lList.Free;
END;
//查找
FUNCTION FtSearchFile(vFile:STRING;vLine:INTEGER):STRING;
VAR lList:TStringList; k,m,n:INTEGER;sTemp:STRING;
BEGIN
Result:='';
IF Not FileExists(vFile) THEN Exit;
lList:=TStringList.Create;
lList.LoadFromFile(vFile);
IF (vLine>=1)and(vLine<=lList.Count) Result:=lList[vLine-1];
lList.Free;
END;

可以将文本导入成一个数据库

前面的123不用写的，建一个TStringList，里面只放数据，如果id=n就用TStringList[n]就行了，哈哈