Delphi貸款源代碼

過程aaa(文件名:字符串)；

定義變量

str:TStringList；

I，j，len:整數；

s1，s2:字符串；

開始

str:=TStringList。創建；

海峽。LoadFromFile(文件名)；

對於i:=0到Str。計數-1開始

s 1:=小寫(str。strings[I])；

Len:=Pos('，s 1)；//分隔符是空格。

Len:=Pos(#9，s 1)；//分隔符是制表符。

如果Len & gt0然後開始

s2:=copy(s1，Len，length(s 1))；

delete(s1，len，length(s 1))；

if Pos('index '，s1)>0然後s1:= '首頁'；

如果Pos('菜單'，s2)>0 thes 2:= ' menu '；

海峽。strings[I]:= s 1+S2；

結束；

結束；

海峽。免費；

結束；