Textdatei in StringGrid anzeigen?

[DeddyH]

Delphi-Quellcode:

var  sl: TStringList;
begin
  if OpenDialog.Execute then
    begin
      sl := TStringList.Create;
      try
        sl.LoadFromFile(OpenDialog.FileName);  //ausgewählte Datei einlesen
        StringGrid1.Rows[1].Delimiter :=';';  //Trennzeichen festlegen
        StringGrid1.Rows[1].DelimitedText := sl[1];  //getrennten Text zuweisen
      finally
        FreeAndNil(sl);
      end;
    end;