Überprüfen ob Datei vorhanden ist...

[Knotti2005]

Ich hab erstmal alles Rausgenommen was hier so an Cods gefallen ist...

Form1...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, XPMenu, jpeg, dxCore, dxButtons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    dxButton1: TdxButton;
    Image1: TImage;
    procedure dxButton1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.dxButton1Click(Sender: TObject);
begin
  form2.show;
  form1.hide;
end;
end.

Hier sollte das Kommen mit den Labels....


Form2 das möchte ich euch nicht antuen ... also nicht der ganze code...

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);

  var
  i: Integer;
  E, E2: TStringList;
begin
  E:=TStringList.Create;    //Datei 1
  E.LoadFromFile('.\list1.txt');
  E2:=TStringList.Create;   //Datei 2
  E2.LoadFromFile('.\list2.txt');
  memo1.items:= E;
  memo2.items:= E2;
    E.Free;
      E2.Free;
   dxstatusbar1.panels[2].Text:=  'Seatplan bereit...';
  for i := 1 to 24 do
 TEdit(FindComponent('Edit' + IntToStr(i))).clear;
end;