kleine abfrage

[raccoon]

hallo, also ich wollte folgendes realisieren, und zwar das wenn ein textfeld leer ist er eine schaltfläche nicht zeigen soll.

so sieht das bisher aus nur der kommt mit den typen nicht klar

Delphi-Quellcode:

if (not (edit1.text := '')) then
begin
button1.Visible:= true;
end;

wie muss das aussehen??

[gmarts]

Zitat von raccoon:

hallo, also ich wollte folgendes realisieren, und zwar das wenn ein textfeld leer ist er eine schaltfläche nicht zeigen soll.

so sieht das bisher aus nur der kommt mit den typen nicht klar

Delphi-Quellcode:

if (not (edit1.text := '')) then
begin
button1.Visible:= true;
end;

wie muss das aussehen??

So:

Delphi-Quellcode:

if not (edit1.text= '') then
button1.Visible:= true
else
button1.Visible:= false;

bzw.

Delphi-Quellcode:

if edit1.text <> '' then
button1.Visible:= true
else
button1.Visible:= false;

bzw.

Delphi-Quellcode:

if edit1.text = '' then
button1.Visible:= false
else
button1.Visible:= true;

bzw.

Delphi-Quellcode:

if not (edit1.text <> '') then
button1.Visible:= false
else
button1.Visible:= true;

Merke:
:= ist eine Zuweisung
= ist ein Vergleich

begin und end sind nicht falsch, doch in dem Beispiel fördern sie nicht die Übersichtlichkeit.

MfG GM

[raccoon]

oh habsch voll vergessen..danke dir und schönen abend noch.

[raccoon]

und hab noch einen fehler jetzt..hier der code

Delphi-Quellcode:

var
  BackupName: string;
  FileHandle: TFileStream; // vorher 'Integer'
  StringLen: Integer;
  X: Integer;
  Y: Integer;
  begin
  if SaveDialog1.Execute then
  begin
    if FileExists(SaveDialog1.FileName) then
    begin
      BackupName := ExtractFileName(SaveDialog1.FileName);
      BackupName := ChangeFileExt(BackupName, '.BAK');
      if not RenameFile(SaveDialog1.FileName, BackupName) then

        raise Exception.Create('Unfähig eine Aushilfsdatei zu erschaffen.');
    end;
    FileHandle := FileCreate(SaveDialog1.FileName);
    FileWrite(FileHandle,
      Sg.ColCount, SizeOf(Sg.ColCount));
    FileWrite(FileHandle,
      Sg.RowCount, SizeOf(SG.RowCount));
    for X := 0 to SG.ColCount - 1 do
    begin

ich habe es mit beiden typen versucht er spuckt mir trotzdem immer den fehler aus entweder TFileStream und Filestream oder halt integer und filestream sind nicht kompatibel.

[gmarts]

Erstmal: Neue Frage, neuer Thread.

Filehandle muss Integer sein.

Der Code kommt aus dem Beispiel der OH. Und dort sehe ich grad keinen Fehler. In welcher Zeile kommt denn die Meldung.

[raccoon]

ja wenn ich den auf integer stelle zeigt er mir hier genau den selber fehler an.

FileHandle := FileCreate(SaveDialog1.FileName); //Inkompatible Typen 'Integer' und 'Filestream'

[Luckie]

Dann mach mal aus deinem Integer einen TFileStream.

Und was den Button betrifft:
Button1.Enabled := Edit1.Text <> ''; ist etwas einfacher, als dein if-else Konstrukt.

[gmarts]

Sollte schon ein Integer bleiben:
function FileCreate(const FileName: string): Integer;
Hast du Filename noch woanders(global) als etwas anderes deklariert?

Zitat:

Code:

Button1.Enabled := Edit1.Text <> '';

Man lernt nie aus.

[raccoon]

ja das mit dem TFileStream hab ich auch schon versucht klappt auch nicht da sagt er mir dann halt den fehler: Inkompatible typen Tfilestream und filestream.

[raccoon]

nein filename hab ich nirgendwo deklariert...