Problem mit Buttons

[Tommy1988]

Hallo, ich habe da ein kleines Problem.

Ich habe ein Programm geschrieben worum es geht, egal :D

Auf meiner Form ist ein Button,

Ich würde gerne abfragen, ob eine Datei existriert,
wenn ja => Button enabled
wenn nein => button disabled

(wenn möglich vielleicht auch noch mit unterschiedlichem text..)

ist das möglich?

wie man eine datei abfragt weis ich, aber bisher nur wie man dann ein
Applikation.Message ausgibt.

mehr nicht

[Helmi]

so gehts:

Delphi-Quellcode:

Button1.Enabled := FileExists(Dateiname);

[Mr_G]

Und für die Beschriftung:

Delphi-Quellcode:

Button1.Caption := 'mein Knopf';

[Tommy1988]

das bringt mich jetzt überhaupt kein bischen weiter.

one den kontext versteh ich das nicht

[Matze]

Herzlich willkommen,

so leid's mir tut: Einsteiger-Tutorial. ;)

[SirThornberry]

ein Button ist ein Object. Dieses Object hat eigenschaften etc. Eine davon ist eben Caption. Die Caption ist der Text welcher angezeigt wird. Wenn du jetzt also den Text ändern willst der vom Button angezeigt wird musst du die Caption ändern. Dies wird mit

Delphi-Quellcode:

Button.Caption := 'neuer Buttontext';

gemacht.

[Tommy1988]

das kenne ich alles schon.. alles einfach..

aber ich glaube ihr habt mein problem nicht verstanden.

wenn eine datei existriert soll der butt enabled sein
und wenn diese datei nicht existriert soll der button disabled sein

[Blackheart]

Da Steht Doch die Lösung.

Zitat:

Zitat von Helmi

so gehts:

Delphi-Quellcode:

Button1.Enabled := FileExists(Dateiname);

FileExists Liefert Dir entweder False oder True.

[Matze]

Das hier

Delphi-Quellcode:

Button1.Enabled := FileExists(Dateiname);

entspricht genau dem hier:

Delphi-Quellcode:

if FileExists(Dateiname) then
  Button1.Enabled := true
else
  Button1.Enabled := false;

[Gehstock]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled := FileExists('c:\1.txt');//1.txt ist die zu findende Datei
if Button1.Enabled = True  then  Button3.Caption := 'Datei gefunden'
 else
  Button1.Caption := 'Datei nicht gefunden';
end;