Teilstring in Stringliste finden und Boolean Wert ausgeben.

[Klaus01]

Delphi-Quellcode:

  . 
  . 
  if TryStrToInt('$' + Edit1.Text, iHexZaehler) then 
  begin 
    StrLSort := TStringList.Create; 
    StrLSort.LoadFromFile(StrSourcePfadName); 
    iHexZaehler := iHexZaehler - $1; 
    StrLSort.Find(Edit1.Text +':', iZeile2); 
 
    For i:=0 to StrLSort.Count -1 do 

      IF StrLSort.IndexOf(Edit1.Text +':') > 0 then 
        begin 

          for y := 0 to 7 do 
            begin 
              iHexZaehler := iHexZaehler + $1; 
              StrLSort.Append(inttohex(ihexzaehler,4) + ':' + hexarray[y]); 
           end; 
    
          StrLSort.Sort; 
          StrLSort.SaveToFile(StrSourcePfad + 'V1'+'.hex.gz');

        end 
      else 
        ShowMessage('Achtung.. Bild unter dieser Adresse vorhanden!'); 
    end; 
  end; 
  . 
  . 
  . 
  .

IndexOf liefer Dir nur einen Index wenn der Eitrag in der Stringlist sich mit Deinem Suchtext 100% deckt.
IndexOf liefert Dir immer -1 auch wenn ein Dein Suchtext ein Teil eines Eintrags der Stringlist ist.

Grüße
Klaus