Ü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;

[Ratte]

dort solltest du logischerweise auch

Delphi-Quellcode:

ExtractFileDir(ParamStr(0)) +'\list1.txt'
//bzw
ExtractFileDir(ParamStr(0)) +'\list2.txt'

einfügen. (beim Laden der Stringlists)

Ratte

[lizardking]

Ich denke mal zuerst die automatische Form-Instanziierung fuer Form2 abschalten :

Project->Options->Forms

und dort Form 2 aus dem Auto-Create rausnehmen. Wenn das naemlich bei Programmstart direkt erstellt wird und im Constructor schon auf die Dateien zugegriffen wird, ist das kein Wunder, dass da Fehler passieren ;-)

[Ratte]

@lizardking: An was mann alles denke muss...
@Knotti: Schiebs's am einfachsten ins OnShow.

[Knotti2005]

Das ist es!!!!!!

So stimmt es


Danke

[Knotti2005]

Zu früh gefreut jetzt stimmt es soweit aber


Wenn beide Datein da sind und ich zur Form 2 wechsel möchte bekomme ich einen Schutzfehler, allerdings weis ich nicht was jetzt der Fehler ist...

Ich habe nur bei Hauptforumlar Form1 die Form2 nach rechts gestellt...


@was meint ihr mit OnShow?

Wenn ich die Form 2 wieder hinzufüge geht es wieder...

[Ratte]

mit dem OnShow: vergiss es, könnte murks geben
Du must vor dem form2.show noch
Form2:=TForm2.create; einfügen. (glaube ich zumindest)

mfg,

Ratte

[r2c2]

Zitat von Knotti2005:

Ich habe nur bei Hauptforumlar Form1 die Form2 nach rechts gestellt...
...
Wenn ich die Form 2 wieder hinzufüge geht es wieder...

Wenn du Form2 aus dem AutoCreate rausnimmst, musst du sie selbst erzeugen. Lass die Form also einfach da drin und schreib den Code nicht in OnCtreate, sondern in OnShow.

Die relativen Pfade solltest du trotzdem noch durch absolute ersetzen. Wenn ich das oft machen muss, dann bin ich schreibfaul und mach das einfach so:

Delphi-Quellcode:

initialization
  Path := ExtrachtFilePath(ParamStr(0));

Dann muss man nur noch "Path" schreiben...

//Nachtrag:
Wo war der Rote Kasten?

Zitat:

mit dem OnShow: vergiss es, könnte murks geben

Wieso? Ich steh momentan scheinbar auf der Leitung...

mfg

Christian

[Knotti2005]

Jetzt gehts danke....

[Ratte]

Wenn er das Fenster zeitweilig verlässt und wieder anzeigt, ändert sich die Liste, falls er sie modifiziert hat oder auf einen bestimmten index zugreifen will und das könnte Probleme geben. Dafür kenn eich sein Programm nicht gut genug um das beurteilen zu können. Mit OnCreate ist sicher besser.