Dumme Frage mit or

[SaFu]

Kann man nicht auf Strings mit or vergleichen oder wo mache ich hier den Fehler

Delphi-Quellcode:

procedure TForm1.sysconfsumschreiben;
var neu,sMemo2,sFreigabe1,sFreigabe2 : String;
begin
   sFreigabe1:= 'IP0 = D:\ms$\PRG4          ; MediStar-Programme';
   sFreigabe2:= 'IP0 = D:\d%\PRG4          ; MediStar-Programme';
   neu:= (ExtractFilePath(ParamStr(0)) + '\Dateisysconfs\neueSysconf\Sysconf.s');
   
    begin
     sMemo2:= Memo2.Text;
     sMemo2:= StringReplace(sMemo2,'\MediStar\',ComboBox2.Text,[rfReplaceAll]);
     Memo2.text:= sMemo2;
    end;

   if Memo2.Lines[10] = (sFreigabe1) or (sFreigabe2) then // Hier
    begin
     Nil;
    end

   else
    begin
     sMemo2:= StringReplace(sMemo2,'PRG','PRG4',[rfReplaceAll]);
     sMemo2:= StringReplace(sMemo2,'prg','PRG4',[rfReplaceAll]);
    end;
    Memo2.text:= sMemo2;
  Memo2.Lines.SaveToFile(neu);
end;

Sorry für die dummen Fragen heute

[mkinzler]

Delphi-Quellcode:

if( Memo2.Lines[10] = (sFreigabe1)) or (Memo2.Lines[10] = (sFreigabe2)) then

[SaFu]

:duck:

Oh man echt peinlich

Aber danke Trotzdem wird mir nicht mehr passieren

[NikoMitDaMacht]

Delphi-Quellcode:

if ... then
begin
  nil;
end
else
...

???

wie wärs mit

Delphi-Quellcode:

   if( Memo2.Lines[10] <> (sFreigabe1)) and (Memo2.Lines[10] <> (sFreigabe2)) then
    begin
     sMemo2:= StringReplace(sMemo2,'PRG','PRG4',[rfReplaceAll]);
     sMemo2:= StringReplace(sMemo2,'prg','PRG4',[rfReplaceAll]);
    end

[SaFu]

Stimmt daran habe ich garnicht gedacht

Ich glaub ich leg mich gleich ins Bett hab ja schon oft dumme Fragen aber heute gehts echt ab

Ich bohr mir gleich ein Loch in den Kopf

:lol:

[fLaSh11]

kann man die zeilen:

Delphi-Quellcode:

sMemo2:= StringReplace(sMemo2,'PRG','PRG4',[rfReplaceAll]);
sMemo2:= StringReplace(sMemo2,'prg','PRG4',[rfReplaceAll]);

nicht zu einer zusammenfassen:

Delphi-Quellcode:

sMemo2:= StringReplace(UpperCase(sMemo2),'PRG','PRG4',[rfReplaceAll]);

//Edit: nö, dann wird alles groß :stupid: is ja logisch...

[SaFu]

Doch kann man

wie man sieht habs heute auch schon versuch aber net hin bekommen dan hab ich einfach so gemacht

Zitat:

Zitat von fLaSh11

kann man die zeilen:

//Edit: nö, dann wird alles groß :stupid: is ja logisch...

Es soll ja auch alles Groß geschrieben werden nur die abfrage soll noch auf klein und Großschreibung sein

aber danke gefällt mir viel besser

Ok ich schreib jetzt Hier meine adresse hin und dann kann mir jemand eine Schrotflinte schicken und ich erschieße mich.

:roteyes: :stupid: ich bin echt doof

[Die Muhkuh]

Hab noch eins: :stupid:

Delphi-Quellcode:

 if AnsiMatchText(Memo2.Lines[10], [sFreigabe1, sFreigabe2]) then

AnsiMatchText findet sich in der Unit StrUtils. ;-)

[SaFu]

Na das ist mir jetzt zu kopliziert bei dem anderen weis ich wenigsten was er macht.

Ihr wollt mich heute ärgern :cry:

[inherited]

Oder gleich sMemo2:= StringReplace(sMemo2,'prg','PRG4',[rfReplaceAll, rfIgnoreCase]);