Einzelnen Beitrag anzeigen

Benutzerbild von Michael Habbe
Michael Habbe

Registriert seit: 10. Aug 2005
264 Beiträge
 
Turbo Delphi für Win32
 
#36

Re: Datei einlesen - Milchalarm

  Alt 16. Dez 2008, 19:17
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
  Mit Zitat antworten Zitat