var sFile,sLine: TStrings;
begin sFile := TStringList.Create;
sFile.LoadFromFile('C:\a.csv');
sLine := TStringList.Create;
sLine.CommaText := sFile[1];
ShowMessage(sLine[2]);
sLine.Free;
sFile.Free
end;
procedure TForm1.Button1Click(Sender: TObject);
var
strlist: TStringList;
begin
strlist := TStringList.Create;
strlist.LoadFromFile('C:\text.csv');
memo1.Lines.AddStrings(strlist);
strlist.Free;
end;
var
strlist: TStringList;
begin
strlist := TStringList.Create;
strlist.LoadFromFile('C:\text.csv');
memo1.Lines.AddStrings(strlist);
strlist.Free;
end;