In Statusbar Informationen zur geöffneten Datei eintragen

[mkpre]

Ich möchte gern in eine Statusbar Informationen zum Namen der verwendeten Datei, die gerade geöffnet ist eintragen.
Ich habe dazu schon folgenden Code geschrieben:

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
var datei : TextFile;
     i,j   : integer;
     x,y   : string;

begin
StatusBar1.Panels[0].Text := 'Name der Datei';
StatusBar1.Panels[1].Text := 'Datum';

   opendialog1.Filter := 'CSV (Trennzeichen-getrennt) (*.csv)|*.CSV';
   for i:=1 to zeilenzahl do
     for j:=0 to 3 do
         tab.cells [j,i]:= ' ';
         OpenDialog1.execute;
         assignfile (datei,OpenDialog1.filename);
         reset(datei);
         i :=1;
         readln (datei,x);
         while not eof (datei) do
         begin
            y := IntToStr (i);
            tab.cells [0,i]:=y;
            readln (datei,x);
            tab.cells[0,i]:=copy (x,2,10);
            tab.ColWidths[0] := 80;
            tab.cells[1,i]:=copy (x,13,5);
            tab.ColWidths[1] := 80;
            tab.cells[2,i]:=copy (x,19,56);
            tab.ColWidths[2] := 300;
           i:=i+1;
         end;
         closefile (datei);
         zeilenzahl := i-1;
end;

Ich würde nun gern wissen, wie ich den Namen der Datei in die Statusbar bekomme.
Danke schon mal für Vorschläge, Tipps, etc.

[Nuclear-Ping]

Ähm, du weist schon den einzelnen Panels der StatusBar einen Text zu ...StatusBar1.Panels[0].Text := 'Name der Datei'; ... und arbeitest mit dem Namen der Datei ...assignfile (datei,OpenDialog1.filename); ... und fragst nun, WIE du einen Text (Variable) der StatusBar zuweisen kannst? Also du fragst, wie du was machen kannst, was du bereits gemacht hast? Muss man das verstehen?

[taaktaak]

So wie du 'Name der Datei' in das Panel geschrieben hast. Einfach

StatusBar1.Panels[0].Text := 'Name der Datei'+OpenDialog1.filename; ggf. vorher den Namen noch 'n bisschen bearbeiten (falls zu lang etc.)

// edit : HIHIHI, das Ähmmm hatte ich auch stehen und es dann doch gelöscht

[Nuclear-Ping]

Yup genau, immer alles schön mundgerecht auf dem Silberteller vorgekaut servieren ...

[taaktaak]

hmm, ist 'ne Grundsatzfrage, du hast eigentlich Recht ...

[Nuclear-Ping]

Ja, vorallem wenn er die Lösung doch schon selber da hat ... nur nicht 100% das was er will. Und an dem Code da gibts noch mehr als nur das zu verbessern ...

[taaktaak]

OK, dann gebe ich mal einen Denkanstoß: Die Placierung von "OpenDialog1.execute" innerhalb der Schleife erscheint mir "seltsam" und sollte einmal überdacht werden