IF ..... AND -> Wie schließen?

[TheMiller]

Hi, ich bräuchte mal wieder eure HILFE...

ich habe folgenden Code:

Delphi-Quellcode:

If Label1.Caption:='xxxxxxx' AND
If Fileexists('C:\xxxxxxx') THEN begin

    with AbCabExtractor1 do begin
      FileName := ExtractFilePath(paramstr(0))+'xxx.cab';
      BaseDirectory := 'c:\xxx';
      try
        ExtractFiles('xxxxx');
        Progressbar1.StepIt;
        finally
        end;

    with AbUnzipper1 do begin
      FileName := 'c:\xxxxxxx';
      BaseDirectory := ABCabExtractor1.BaseDirectory;
      ABUnzipper1.Password:='xx';
      ExtractFiles( 'xxxx' );
      Progressbar1.StepIt;
      end;
      RenameFile('C:\xxxx','C:\xxxx.xxx');
      Progressbar1.StepIt;
      ShellExecute(0, nil, PChar('c:\xxxx.xxx'), nil, nil, sw_Show);
      Progressbar1.StepIt;
      Progressbar1.Visible:=False;
      ABUnzipper1.CloseArchive;
      DeleteFile('xxxxxxxxx');
      end;
      end

ELSE begin

    with AbCabExtractor1 do begin
      FileName := ExtractFilePath(paramstr(0))+'xxx';
      BaseDirectory := 'xxxx';
      try
        ExtractFiles('xxxxx');
        Progressbar1.StepIt;
        finally
        end;
        end;

    with AbUnzipper1 do begin
      FileName := 'c:\xxxxxx';
      BaseDirectory := ABCabExtractor1.BaseDirectory;
      ABUnzipper1.Password:='xx';
      ExtractFiles( 'xxxx' );
      Progressbar1.StepIt;
      end;
      RenameFile('C:\xxx','C:\xxxxx.xxx');
      Progressbar1.StepIt;
      ShellExecute(0, nil, PChar('c:\xxxx), nil, nil, sw_Show);
      Progressbar1.StepIt;
      Progressbar1.Visible:=False;
      ABUnzipper1.CloseArchive;
      DeleteFile('xxxxx');
end;
end;

Nur ich habe Probleme mit den abschließenden "end;'s" Wer könnte mir da helfen?

[Synonym]

Du hast hier nen Fehler drin

ShellExecute(0, nil, PChar('c:\xxxx), nil, nil, sw_Show); sollte so aussehen:

ShellExecute(0, nil, PChar('c:\xxxx'), nil, nil, sw_Show); gruß

synonym

[Sharky]

Hai DJ-SPM,

a) Ist das keine gültige Abfrage:

Delphi-Quellcode:

If Label1.Caption:='xxxxxxx' AND
If Fileexists('C:\xxxxxxx') THEN begin

b) Die Probleme mit dem Begin-End kannst Du umgehen indem Du deinen Sourcecode "besser" formatierst:

Delphi-Quellcode:

begin
  if (Label1.Caption = 'xxxxxx') and (FileExists ('c:\xxxxx')) then
    begin
    end
  else
    begin
      if (was_weis_ich) then
        begin
        end
      else
        begin
        end;
    end;
end;

[Spezi1980]

sollte es so aussehen?

Delphi-Quellcode:

If Label1.Caption='xxxxxxx' AND Fileexists('C:\xxxxxxx') THEN
begin 
    with AbCabExtractor1 do
    begin 
      FileName := ExtractFilePath(paramstr(0))+'xxx.cab'; 
      BaseDirectory := 'c:\xxx'; 
      try 
        ExtractFiles('xxxxx'); 
        Progressbar1.StepIt; 
      finally 
      end;
    end;

    with AbUnzipper1 do
    begin 
      FileName := 'c:\xxxxxxx'; 
      BaseDirectory := ABCabExtractor1.BaseDirectory; 
      ABUnzipper1.Password:='xx'; 
      ExtractFiles( 'xxxx' ); 
      Progressbar1.StepIt; 
    end; 
    RenameFile('C:\xxxx','C:\xxxx.xxx'); 
    Progressbar1.StepIt; 
    ShellExecute(0, nil, PChar('c:\xxxx.xxx'), nil, nil, sw_Show); 
    Progressbar1.StepIt; 
    Progressbar1.Visible:=False; 
    ABUnzipper1.CloseArchive; 
    DeleteFile('xxxxxxxxx'); 

end ELSE begin 
    with AbCabExtractor1 do
    begin 
      FileName := ExtractFilePath(paramstr(0))+'xxx'; 
      BaseDirectory := 'xxxx'; 
      try 
        ExtractFiles('xxxxx'); 
        Progressbar1.StepIt; 
      finally 
      end; 
    end; 

    with AbUnzipper1 do
    begin 
      FileName := 'c:\xxxxxx'; 
      BaseDirectory := ABCabExtractor1.BaseDirectory; 
      ABUnzipper1.Password:='xx'; 
      ExtractFiles( 'xxxx' ); 
      Progressbar1.StepIt; 
    end; 
    
    RenameFile('C:\xxx','C:\xxxxx.xxx'); 
    Progressbar1.StepIt; 
    ShellExecute(0, nil, PChar('c:\xxxx'), nil, nil, sw_Show); 
    Progressbar1.StepIt; 
    Progressbar1.Visible:=False; 
    ABUnzipper1.CloseArchive; 
    DeleteFile('xxxxx'); 
end;

ordne die den code so ann, dass du auf einen Blick siehst, welches Begin zu welchem end gehört.

Gruß Robert

[Edit]da war wohl jemand schneller... [/Edit]

[Bobator]

Delphi-Quellcode:

If (Label1.Caption='xxxxxxx') AND Fileexists('C:\xxxxxxx') THEN
begin
    with AbCabExtractor1 do
    begin
      FileName := ExtractFilePath(paramstr(0))+'xxx.cab';
      BaseDirectory := 'c:\xxx';
      //So dürfte die Ausgabe mit Abbrevia-Komponenten funktionieren
      ArchiveProgressMeter:=AbVCLMeterLink1;
      AbVCLMeterLink1.Meter:=AbMeter1;
      try
        ExtractFiles('xxxxx');
      //  Progressbar1.StepIt;  mhh... soweit ich weiss funzt das net mit Abbrevia. Besser siehe oben 
      except
        Showmessage('Fehler.');
      end;
    end;

    with AbUnzipper1 do
    begin
      FileName := 'c:\xxxxxxx';
      BaseDirectory := ABCabExtractor1.BaseDirectory;
      ABUnzipper1.Password:='xx';
      ExtractFiles( 'xxxx' );
      //Progressbar1.StepIt; siehe oben
      ArchiveProgressMeter:=AbVCLMeterLink2;
      AbVCLMeterLink2.Meter:=AbMeter2;
    end;
    RenameFile('C:\xxxx','C:\xxxx.xxx');
    Progressbar1.StepIt;
    ShellExecute(0, nil, PChar('c:\xxxx.xxx'), nil, nil, sw_Show);
    Progressbar1.StepIt;
    Progressbar1.Visible:=False;
    ABUnzipper1.CloseArchive;
    DeleteFile('xxxxxxxxx');
end 
ELSE 
begin
    with AbCabExtractor1 do
    begin
      FileName := ExtractFilePath(paramstr(0))+'xxx';
      BaseDirectory := 'xxxx';
      try
        ExtractFiles('xxxxx');
      //  Progressbar1.StepIt;
      finally
      end;
    end;

    with AbUnzipper1 do
    begin
      FileName := 'c:\xxxxxx';
      BaseDirectory := ABCabExtractor1.BaseDirectory;
      ABUnzipper1.Password:='xx';
      ExtractFiles( 'xxxx' );
      Progressbar1.StepIt;
    end;
   
    RenameFile('C:\xxx','C:\xxxxx.xxx');
    Progressbar1.StepIt;
    ShellExecute(0, nil, PChar('c:\xxxx'), nil, nil, sw_Show);
    Progressbar1.StepIt;
    Progressbar1.Visible:=False;
    ABUnzipper1.CloseArchive;
    DeleteFile('xxxxx');
end;

[TheMiller]

@Robert: Ich habe jetzt die Zeile If Label1.Caption:='2004211' AND Fileexists('C:\xxx\xxx.xxx') THEN eingetragen und er sagt mir Inkompatible Typen: String und Boolean Die Überprüfung soll so aussehen, dass beide Teile (Label1.Caption und Fileexists) geprüft werden und wenn beides korrekt ist geht es mit xx weiter, wenn eins oder beides nicht stimmt, dann mit yy...

Trotzdem erstmal danke für die antworten

[MikeS]

Zitat:

Source:
If Label1.Caption:='2004211' AND Fileexists('C:\Programme\BVEH\bveh.exd') THEN

probiere es mal so

Delphi-Quellcode:

Source: 
If (Label1.Caption ='2004211') AND Fileexists('C:\Programme\BVEH\bveh.exd') THEN

[Christian Seehase]

Moin DJ-SPM,

oder um's deutlicher zu machen:

Bei Vergleichen auf Gleichheit, z.B. bei if/then, ein = verwenden.
Der Operator := dient nur der Zuweisung von Werten.

[TheMiller]

yup, das funzt jetzt alles.... danke!!!!

[Spezi1980]

ups, natürlich := ist eine Zuweisung und = ein Vergleich. Tschuldigung hatte ich übersehen.

Gruß