Strings aus .txt in form2.caption?

[bbBowser]

hi leute
hab schon im forum gesucht, wusste aber net welche die richtige lösung ist, wenn überhaupt;(. hab folgendes problem:
ich lade aus ner txtdatei strings, jetzt würde ich gerne das element i als caption für form 2 verwenden. allerdings wird dann immer das allererste element(string[0]) angezeigt. wenn ich allerdings das ganze statt in die formCreate von form2 in nen button einbau funktionierts.
jetzt die frage: muss ich da vieleicht irgendwie en delay einbaun, der wartet bis alles geladen ist?(isses net schonlängst geladen, weil form1 ja schon alles vorher geladen hat?)oder isses was ganz anderes?

hoffe ihr könnt mir helfen
bbBowser

[marabu]

Herzlich Willkommen in der Delphi-PRAXiS.

Wenn du deine Strings im Ereignis OnCreate deiner MainForm lädtst, dann kannst du im OnCreate deiner Form2 die Caption setzen:

Delphi-Quellcode:

uses
  Unit1; // da drinnen lebt deine MainForm namens Form1?

procedure TForm2.FormCreate(Sender: TObject);
var
  Index: Integer;
begin
  Index := 1; // welcher dir halt gefällt
  Caption := Form1.DeineStringList[Index];
end;

Ist nur eine von vielen möglichen Vorgehensweisen. Wenn du nicht damit klar kommst, dann musst du mal ein Stückchen von deinem Code zeigen.

Grüße vom marabu

[bbBowser]

danke für die schnelle antwort, aber mein problem besteht weiterhin :( so in etwa hab ichs ja gemacht. hier einfach ma die wichtigen codeteile:

Delphi-Quellcode:

unit1:

procedure TForm1.FormCreate(Sender: TObject);
begin
  tische := TStringList.Create;
  tische.LoadFromFile('tische.txt');

...

procedure TForm1.Image1Click(Sender: TObject);
begin
Form2.Show;
eigenschaften_nr := 1;
end;

unit2:

procedure TForm2.FormCreate(Sender: TObject);
begin
label2.Caption := tische.Strings[eigenschaften_nr];
end;

...

vieleicht hilfts weiter :cry:

bbBowser

[marabu]

Vielleicht hilft dir ja eine kleine Änderung am Code:

Delphi-Quellcode:

unit1:

procedure TForm1.FormCreate(Sender: TObject);
begin
  tische := TStringList.Create;
  tische.LoadFromFile('tische.txt');

...

procedure TForm1.Image1Click(Sender: TObject);
begin
  eigenschaften_nr := 1;
  Form2.Show;
end;

unit2:

procedure TForm2.FormShow(Sender: TObject);
begin
  label2.Caption := tische.Strings[eigenschaften_nr];
end;

...

marabu

[bbBowser]

habs jetzt in soweit geändert, aber es ändert nix am prblem, er zeit immernoch das erste element von tische.Strings an :cry:

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
begin
label2.caption := tische.Strings[eigenschaften_nr];
end;

[marabu]

So funktioniert es bei mir:

Delphi-Quellcode:

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tische := TStringList.Create;
  Tische.Add('Titel0');
  Tische.Add('Titel1');
  Tische.Add('Titel2');
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  with Form2 do
  begin
    Caption := Tische[1];
    Show;
  end;
end;

marabu

[bbBowser]

ja vielen dank. jetzt funktionierts :thumb: wirklich sehr schnelle und kompetente hilfe :hello: