最近在用Delphi，总结一下

 

读文件，用指定字符分开读取字符串

 

 

var MyList : TStringList;procedure readDataFromFile;begin if FileExists('./filename.txt') then begin MyList:=TStringList.Create; MyList.LoadFromFile('./filename.txt'); Edit1.Text:=MyList.Strings[0]; end;end;procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings);begin Assert(Assigned(Strings)); //Check if the input string is assigned Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input;end;