Datei einlesen - Milchalarm

[Der.Kaktus]

Zitat von DeddyH:

Schau Dir nochmal mein Edit an: http://www.delphipraxis.net/internal...=976899#976899

oder so

[ljmarkus]

Was ist die Tlist ? Delphi kennt die nicht.


lg, markus

[mkinzler]

Hast du Classes den Uses hinzugefügt?

[DeddyH]

Meinst Du jetzt die TStringlist? Die ist in Classes definiert, die ListView ist eine Komponente (Eigenschaft ViewStyle auf vsReport gestellt).

[ljmarkus]

Zitat von mkinzler:

Hast du Classes den Uses hinzugefügt?

Ja habe ich dort stehen.

[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

[ljmarkus]

bei StringGrid1.Cells(i, 1) := Copy(s,1,4); meggert er rum:

'[' expected but '(' found


so muss es lauten:

StringGrid1.Cells[i, 1] := Copy(s,1,4)

[DeddyH]

StringGrid1.Cells[i, 1] := Copy(s,1,4);