读文件,用指定字符分开读取字符串 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;