delphi - Hvorfor virker denne if not FileExists(OpenDialog1.FileName) ikke? - Udvikleren.dk

Tags: delphi

Bruger #4832 @ 26.12.03 17:04

Hej
Hvorfor virker denne kodeeksempel ikke?
Hvad gør jeg forkert?

Kode


procedure TForm1.Button2Click(Sender: TObject);
begin
    OpenDialog1.DefaultExt := '*.cds';

     if OpenDialog1.Execute then
        begin
        Memo1.Clear;
        Caption :='';
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
        filnavn := OpenDialog1.FileName;
        Caption := 'Fundet NavnDabasseNavn: '+ ExtractFileName(filnavn);
        //Label1.Caption:=ExtractFileName(FileName);
        end else
        if not FileExists(OpenDialog1.FileName) then
            Memo1.Clear;
            Caption :='';
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            Memo1.Lines.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            Caption := 'Indsættes DefaultNavnDatabase';
            //Label1.Caption:='DefaultNavnDatabase';

end;

På forhånden mange tak

God jul samt et godt nytår
Monie Jacobsen

E-mail:energy@sunwind.dk

9 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #955 @ 26.12.03 20:08

1.624

Det jeg mente var, at du skulle indkapsle den kode der er efter din if-sætning i begin...end; :

Kode


procedure TForm1.Button2Click(Sender: TObject);
begin
    OpenDialog1.DefaultExt := '*.cds';

     if OpenDialog1.Execute then
        begin
        Memo1.Clear;
        Caption :='';
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
        filnavn := OpenDialog1.FileName;
        Caption := 'Fundet NavnDabasseNavn: '+ ExtractFileName(filnavn);
        //Label1.Caption:=ExtractFileName(FileName);
        end else
        if not FileExists(OpenDialog1.FileName) then

        begin // <---

            Memo1.Clear;
            Caption :='';
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            Memo1.Lines.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            Caption := 'Indsættes DefaultNavnDatabase';
            //Label1.Caption:='DefaultNavnDatabase';

         end;// <---
end;

MvH

Stefan Svensson
http://fusket.frac.dk

Bruger #4564 @ 26.12.03 20:57

Så vidt jeg kan se tildeler du caption en værdi. Er denne Caption en variabel, i så fald er den vist ikke defineret, ellers hvis det er buttons2's caption, ville det nok være smart at skrive Button2.Caption i stedet for

Kode


procedure TForm1.Button2Click(Sender: TObject);
begin
    OpenDialog1.DefaultExt := '*.cds';

     if OpenDialog1.Execute then
        begin
        Memo1.Clear;
        Caption :='';             <-----Her
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
        filnavn := OpenDialog1.FileName;
        Caption := 'Fundet NavnDabasseNavn: '+ xtractFileName );
        //Label1.Caption:=ExtractFileName(FileName);
        end else
        if not FileExists(OpenDialog1.FileName) then

        begin // <---

            Memo1.Clear;
            Caption :='';   <------ her
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            Memo1.Lines.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            Caption := 'Indsættes DefaultNavnDatabase';
            //Label1.Caption:='DefaultNavnDatabase';

         end;// <---
end;

T dér

Bruger #123 @ 26.12.03 21:00

278

Kode

procedure TForm1.Button2Click(Sender: TObject);
begin
    OpenDialog1.DefaultExt := '*.cds';

     if OpenDialog1.Execute then
     begin
        Memo1.Clear;
        Caption :='';
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
        filnavn := OpenDialog1.FileName;
        Caption := 'Fundet NavnDabasseNavn: '+ ExtractFileName(filnavn);
        //Label1.Caption:=ExtractFileName(FileName);
      end 
     else
     if not FileExists(OpenDialog1.FileName) then
     begin
            Memo1.Clear;
            Caption :='';
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            Memo1.Lines.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            Caption := 'Indsættes DefaultNavnDatabase';
            //Label1.Caption:='DefaultNavnDatabase';
    end;
end;

Det er slet ikke utænkeligt at det virker. Dit problem er at du indlæser en MyBase database fil i en memo. CDS filer er binære, og det er ikke givet at en TMemo kan indlæse disse, så det ses.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 26/12-03 21:01:39 af Thomas Due]

Bruger #2959 @ 26.12.03 17:07

429

Får du en fejl når du kompiler?
Hilsen Chadi
Mit lykketal er 2959

Bruger #955 @ 26.12.03 17:41

1.624

Det ser ud som om du har glemt at indkapsle koden med en begin ... end;

MvH

Stefan Svensson
http://fusket.frac.dk

Bruger #4832 @ 26.12.03 17:54

Får du en fejl når du kompiler?
Hilsen Chadi
Mit lykketal er 2959

Nej det gør jeg ikke
Mvh
Monie
energy@sunwind.dk

Bruger #4832 @ 26.12.03 20:05

Det ser ud som om du har glemt at indkapsle koden med en begin ... end;

MvH

Stefan Svensson
http://fusket.frac.dk

Se her?
Det er endnu et forsøg, jeg gør et eller andet forkert!

Kode

procedure TForm1.Button2Click(Sender: TObject);
begin
    OpenDialog1.DefaultExt := '*.cds';

     if OpenDialog1.Execute then
        begin
        Memo1.Clear;
        Caption :='';
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
        filnavn := OpenDialog1.FileName;
        Caption := 'Fundet NavnDabasseNavn: '+ ExtractFileName(filnavn);
        //Label1.Caption:=ExtractFileName(FileName);
        end else
        if not FileExists(OpenDialog1.FileName) then
            Memo1.Clear;
            Caption :='';
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            Memo1.Lines.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            Caption := 'Indsættes DefaultNavnDatabase';
            //Label1.Caption:='DefaultNavnDatabase';

end;

Mvh
Monie Jacobsen
energy@sunwind.dk

Bruger #4564 @ 26.12.03 20:57

Kode


procedure TForm1.Button2Click(Sender: TObject);
begin
    OpenDialog1.DefaultExt := '*.cds';

     if OpenDialog1.Execute then
        begin
        Memo1.Clear;
        Caption :='';             <-----Her
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
        filnavn := OpenDialog1.FileName;
        Caption := 'Fundet NavnDabasseNavn: '+ xtractFileName );
        //Label1.Caption:=ExtractFileName(FileName);
        end else
        if not FileExists(OpenDialog1.FileName) then

        begin // <---

            Memo1.Clear;
            Caption :='';   <------ her
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            Memo1.Lines.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            Caption := 'Indsættes DefaultNavnDatabase';
            //Label1.Caption:='DefaultNavnDatabase';

         end;// <---
end;

T dér

Bruger #955 @ 26.12.03 21:05

1.624

Så vidt jeg kan se tildeler du caption en værdi. Er denne Caption en variabel, i så fald er den vist ikke defineret, ellers hvis det er buttons2's caption, ville det nok være smart at skrive Button2.Caption i stedet for

Dette kan da ikke være en fejl, caption henføre til det objekt der ejer metoden, der i dette tilfælde er form1, og derfor skal forståes som form1.caption.

MvH

Stefan Svensson
http://fusket.frac.dk

Hvorfor virker denne if not FileExists(OpenDialog1.FileName) ikke?

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler