Problem beim ausgeben von FDaten.Strings[i] und mehr...

[Fussel9]

das mit dem Trunc ist mir Schleierhaft: der Fehler muss ja vor der if then else liegen da er keine Message ausgibt...

hier mal der gesamte Quelltext bis zum ende der OnCreate:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls, IniFiles, Unit2, ImgList, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    EDatum: TEdit;
    EUmlauf: TEdit;
    EWagen: TEdit;
    EAnmerkung: TEdit;
    EStundenG: TEdit;
    EStunden: TEdit;
    EKilometer: TEdit;
    StGr: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Bsave: TButton;
    ELaden: TEdit;
    Label7: TLabel;
    Bload: TButton;
    BCalc: TButton;
    Label8: TLabel;
    Image: TImage;
    EGehalt: TEdit;
    CheckG: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure EUmlaufChange(Sender: TObject);
    procedure EWagenChange(Sender: TObject);
    procedure EStundenGChange(Sender: TObject);
    procedure EStundenChange(Sender: TObject);
    procedure EKilometerChange(Sender: TObject);
    procedure EAnmerkungChange(Sender: TObject);
    procedure BsaveClick(Sender: TObject);
    procedure BloadClick(Sender: TObject);
    procedure BCalcClick(Sender: TObject);
    procedure EDatumChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EGehaltChange(Sender: TObject);
  private
    { Private-Deklarationen }
    FDaten: TStringList;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

var gesamtstunden,stundenohne :Integer;
 var gehalt :Real;
  var save :TIniFile;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
var vdatum :TDate;
begin
  EDatum.Text:=DateToStr(Date);

  FDaten := TStringList.Create;
  StGr.Cells[0,1]:='Heute';
  StGr.Cells[0,2]:='Gestern';
  StGr.Cells[0,3]:='Vorgestern';
  StGr.Cells[0,4]:='Datum';
  StGr.Cells[0,5]:='Datum';
  StGr.Cells[0,6]:='Woche';
  StGr.Cells[0,7]:='Monat';
  StGr.Cells[0,8]:='Jahr';
  StGr.Cells[1,0]:='Tag';
  StGr.Cells[2,0]:='Umlauf:';
  StGr.Cells[3,0]:='Wagen';
  StGr.Cells[4,0]:='Stunden';
  StGr.Cells[5,0]:='Stunden ohne';
  StGr.Cells[6,0]:='Kilometer';
  StGr.Cells[7,0]:='Anmerkungen';

  vdatum:=Date-1;
  for i := 0 to FDaten.Count -1 do begin
  ShowMessage(FDaten.Strings[i]);
   if StrToDate(FDaten.Strings[i]) = vdatum then
    StGr.Cells[1,2]:=FDaten.Strings[i];
  end;
end;