Probleme mit ComboBox

[Weazy]

Hallo, ich habe folgendes Problem. Ich habe eine Variable filename und filepath. In einer ComboBox will ich nun den vollen Dateinamen anzeigen, so weit kein Problem. Die Items der Combobox sind nun Pfade. Beim wählen einer dieser Pfade soll nun dieser Pfad gesetzt werden und dann der komplete dateinamen angezeigt werden. Das Problem ist nun dass im folgenden Code anstatt der korrekte Dateinamen der jeweilige Pfad angezeigt wird, woran könnte das liegen?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  filename:String='test.txt';
  filepath:String='c:\a\b\';

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  filename:=ExtractFileName(ComboBox1.Text);
  filepath:=ExtractFileDir(ComboBox1.Text)+'\';
  Edit1.Text:=filename;
  Edit2.Text:=filepath;
  ComboBox1.Text:=filepath+filename;
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  filePath:=ComboBox1.Text;
  Edit2.Text:=filepath;
  ComboBox1.Text:=filepath+'\'+filename;
  showmessage(ComboBox1.Text);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  filename:=Edit1.Text;
  ComboBox1.Text:=filepath+filename;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  filepath:=Edit2.Text;
  ComboBox1.Text:=filepath+filename;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:=filename;
  Edit2.Text:=filepath;
  ComboBox1.Text:=filepath+filename;
end;

end.

[haentschman]

Hallo erstmal...
:gruebel: Ich habe deine Fragestellung mehrfach gelesen und bin noch nicht wirklich schlauer.
Könntest du bitte es noch einmal etwas anders formulieren ?
Was meinst du z.B. mit

Zitat:

soll nun dieser Pfad gesetzt werden und dann der komplete dateinamen angezeigt werden.

- was soll wo gesetzt werden ?
- wo soll der komplette Dateiname angezeigt werden ?

:hi:

[Weazy]

Ja ist etwas schräg formuliert. Also die Items der Combobox sind Pfade, in der Combobox selbst (Combobox.text) steht ein kompleter Dateiname mit Pfadangabe. Mit dem Drop Down Menü soll man nun den Pfad ändern können, der Dateiname selbst soll aber bleiben. Nach der Auswahl des Pfades soll dann aber der komplete dateiname mit dem neuen Pfad angezeigt werden...