Memo auslesen und Text vergleichen mit Edit

[patti]

Ah, ok. Dann hatte ich das anfangs doch richtig verstanden, und mich nur durch die (etwas seltsame) Formulierung in Post #4 durcheinanderbringen lassen. Wenn also im Edit steht:

Code:

http://www.xyz.de/

und im Memo

Code:

abc.de
def.de
xyz.de

dann soll der Vergleich "true" liefern, und zwar bei Zeile 3 (also mit dem Index 2, da die Nummerierung ja bei 0 beginnt). Gehe einfach in einer Schleife jede Zeile deines Memos durch, z.B. so:

Delphi-Quellcode:

for i := 0 to Memo1.Lines.Count -1 do
begin
  zeile := Memo1.Lines[i];
  //
  // Vergleich...
end;

Den Vergleich kannst du mit Pos machen. Schau dir die Funktion einfach mal in der Hilfe oder in entsprechenden Threads der DP an. Evtl. kannst du die Eingaben vor dem Vergleich alle noch mit UpperCase() in Großbuchstaben umwandeln, damit die Groß-/Kleinschreibung vernachlässigt wird.

mfg

[DaveRidge]

Dank Eurer Hilfe hab ichs geschafft. Erstmal ein Herzliches Danke schön an alle die mit geholfen haben.

Ich habs jetzt so gemacht:

Delphi-Quellcode:

procedure TForm1.MozillaBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var zeichen, counter, h: Longint;
begin
zeichen:=Form6.Memo1.Lines.Count;
counter:=0;
For h:=0 to zeichen do
 if h<zeichen then
   begin
    if pos(Form6.Memo1.Lines[counter],Form1.Edit8.Text)=0 then begin
    Form1.StatusBar1.Panels[1].Text:=('Webseite wurde geprüft!');
    end else begin
    showmessage('Diese Webseite wurde gesperrt!!!');
    Form1.Edit8.Text:=(' ');
    Form1.MozillaBrowser1.Navigate('http://google.de');
   end;
 counter:=counter+1;
 end;

end;

Falls Euch an den Code noch was auffällt, bzw. besser machen könnte, schreibts einfach.

MfG Dave

Vielen Danke an alle.

[Luckie]

Warum die if-Abfrage?

Delphi-Quellcode:

if h<zeichen then

Zieh doch einfach eins bei der for-Schleife ab:

Delphi-Quellcode:

For h:=0 to zeichen-1 do

[DaveRidge]

Zitat:

Zitat von Luckie

Warum die if-Abfrage?
...
Zieh doch einfach eins bei der for-Schleife ab:
...

Stimmt, ich machs immer Komplizierter als es ist :-)

Danke

MfG dave

[DaveRidge]

Zitat:

... kannst du die Eingaben vor dem Vergleich alle noch mit UpperCase() in Großbuchstaben umwandeln, damit die Groß-/Kleinschreibung vernachlässigt wird.

mfg

Danke patti
Habs mit UpperCase() gemacht. geht super :-)

Delphi-Quellcode:

...
begin
    if pos(UpperCase(Form6.Memo1.Lines[counter]),UpperCase(Form1.Edit8.Text))=0 then begin
    Form1.StatusBar1.Panels[1].Text:=('Webseite wurde geprüft!');
...

MfG Dave

[patti]

Hier noch einpaar Verbesserungsvorschläge zu deinem Quelltext:

Delphi-Quellcode:

procedure TForm1.MozillaBrowser1BeforeNavigate2(Sender: TObject; 
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, 
  Headers: OleVariant; var Cancel: WordBool); 
var zeichen, h: Longint; // "counter" brauchst du nicht
begin
   //--
   zeichen := Form6.Memo1.Lines.Count;
   //
   for h := 0 to zeichen -1 do 
   begin // begin - end nicht unbedingt noetig, aber sinnvoll
     if pos(Uppercase(Form6.Memo1.Lines[h]),Uppercase(Form1.Edit8.Text)) = 0 then
       Form1.StatusBar1.Panels[1].Text := ('Webseite wurde geprüft!')
     else
     begin 
       showmessage('Diese Webseite wurde gesperrt!!!'); 
       Form1.Edit8.Text := (' '); 
       Form1.MozillaBrowser1.Navigate('http://google.de'); 
     end; 
   end;
end;

So ist der Quelltext dank Einrückungen besser lesbar. Außerdem kannst du dir die Variable "counter" auch schenken, denn die entspricht ja der Variable "h". Bei der if-Abfrage hab ich den begin-end-Block rausgenommen, brauchst du ja nicht unbedingt, dafür hab ich einen bei der Schleife eingebaut. Bis jetzt ist das nicht unbedingt nötig, aber solltest du später mal eine Anweisung nach der if-Abfrage aber innerhalb der Schleife einbauen wollen und dann das begin-end vergessen, dann kann es dir passieren, dass du ewig nach dem Fehler suchst und der nur wegen dem fehlenden begin-end auftaucht.

mfg

[DeddyH]

Da mittlerweile auch Umlaute in URLs erlaubt sind, würde ich statt Pos() und Uppercase() vielleicht eher StrUtils.AnsiContainsText verwenden.

[Dave729]

Hi Patti. Counter habsch rausgenommen. Da war noch was anderes in Planung, aber da Uppcase die zweite Sache auch gleich noch gelöst hat, berauch ichs net mehr :-)

Hi DeddyH.

Jo, eigentlich haste recht, aber ich hab in meinem Prog das Mozilla 1.7 verwendet, da gehen keine Umlaute.


MfG dave

Ps.: Kennt einer eine Delphi Komponente wo ich über RTSP auf meine Ip Kamera connecten kann?

[mkinzler]

Zitat:

Ps.: Kennt einer eine Delphi Komponente wo ich über RTSP auf meine Ip Kamera connecten kann?

Diese Frage hat m.E. einen eigenen Thread verdient :zwinker:

[Dave729]

Zitat:

Zitat von mkinzler

Zitat:

Ps.: Kennt einer eine Delphi Komponente wo ich über RTSP auf meine Ip Kamera connecten kann?

Diese Frage hat m.E. einen eigenen Thread verdient :zwinker:

Ich weiss :-) , srry

MfG Dave