Datei einlesen - Milchalarm

[Michael Habbe]

Wenn Du keine DB-Komponenten verwenden kannst, versuch es mal mit dem StringGrid, das sollte es auch in der Personal geben.

Delphi-Quellcode:

procedure tuwas;
var
  f: Textfile;
  s: String;
  i: integer;
begin
  i := 1;
  AssignFile(f, Milchdatei);
  reset(f);
  while not eof(f) do
  begin
    readln(f, s);
    StringGrid1.Cells[i, 1] := Copy(s, 1, 5);
    StringGrid1.Cells[i, 2] := Copy(s, 6, 5);
    StringGrid1.Cells[i, 3] := Copy(s, 10, 5);
    StringGrid1.Cells[i, 4] := Copy(s, 17, 5);
    StringGrid1.Cells[i, 5] := Copy(s, 25, 5);
    inc(i);
  end;
  CloseFile(f);
end;

Die Zahlen im Copy müssen natürlich an Deine Datei angepasst werden.


edit: Runde Klammern durch eckige ersetzt, Quelltext ohne Delphi getippt