1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

unit ReadIn;

interface

type
  TextArray = array of string;
  function Read(Path: string): TextArray;

implementation

function Read(Path: string): TextArray;
var
Filename: TextFile;
zeile: Integer;
begin
  AssignFile(Filename, Path);             //Einlesen der Datei
  Reset(Filename);                        //Setzt den Cursor an den Anfang
  zeile := 0;
  while not eof(Filename) do
  begin
    setlength(result, zeile+1);           //Solange das Dateiende nicht erreicht ist
    Readln(Filename,result[zeile]);       //Erhöht die Länge des dynamischen Strings
    inc(zeile);                           //Schreibt die ganze Zeile in result[Zeile] und setzt den Cursor in die nächste Zeile
  end;
  CloseFile(Filename);                    //Schließt die Datei
end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var Liste: TStringList;
begin
  Liste:=TStringList.Create;
  Liste.LoadFromFile(PfadUndDateiname);
  // Zugriff auf die einzelnen Zeilen mit Liste[i]
  ...
  // irgendwann am Ende...
  Liste.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

MeinStringGrid.Cells[0, 0]:='Nummer';  // irgend eine laufende Nummer
MeinStringGrid.Cells[1, 0]:='Fehler';
MeinStringGrid.Cells[2, 0]:='Sender';
MeinStringGrid.Cells[3, 0]:='Datum';
MeinStringGrid.Cells[4, 0]:='Computer';
MeinStringGrid.Cells[5, 0]:='User';
MeinStringGrid.Cells[6, 0]:='Benutzer';
MeinStringGrid.Cells[7, 0]:='Formulare';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TError.FormCreate(Sender: TObject);
begin
  sgErgebnis.Cells[1,0] := 'Fehler';
  sgErgebnis.Cells[2,0] := 'Sender';
  sgErgebnis.Cells[3,0] := 'Datum';
  sgErgebnis.Cells[4,0] := 'Computer';
  sgErgebnis.Cells[5,0] := 'User';
  sgErgebnis.Cells[6,0] := 'Benutzer';
  sgErgebnis.Cells[7,0] := 'Formulare';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TError.btnImportClick(Sender: TObject);
var
LValue: string;
begin
  LValue :=  Read(cbPfad.Text)[4];
  sgErgebnis.Cells[1,1] := LValue;
  LValue :=  Read(cbPfad.Text)[6];
  sgErgebnis.Cells[2,1] := LValue;
  LValue :=  Read(cbPfad.Text)[8];
  sgErgebnis.Cells[3,1] := LValue;
  LValue :=  Read(cbPfad.Text)[10];
  sgErgebnis.Cells[4,1] := LValue;
  LValue :=  Read(cbPfad.Text)[12];
  sgErgebnis.Cells[5,1] := LValue;
  LValue :=  Read(cbPfad.Text)[14];
  sgErgebnis.Cells[6,1] := LValue;
  LValue :=  Read(cbPfad.Text)[16];
  sgErgebnis.Cells[7,1] := LValue;
end;