最近在用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;