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); 

    IF pos(Edit1.text+':',StrLSort.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;  
  . 
  .

.
wie Jens schon geschrieben hatte, nur eingesetzt.

Grüße
Klaus