Hallo!
Vielen Dank nochmals für eure hilfe. Gollums Ansatz hat mir eigentlich sehr gefallen. Aber ich habe nun noch auch nochmals um die Hilfe eines Kollegen gebeten und letztendlich bin ich auf diese Lösung gekommen. Mit Sicherheit nicht der schönste Weg, das Problem zu lösen. Aber es funktioniert soweit.
Code:
o:=0;
StringList.Delimiter := '\n';
StringList.DelimitedText := NetList.Text;
for m := 0 to StringList.Count-1 do
Begin
if (StringList[m]) <> '*END*' then
Begin
if (StringList[m]) <> '*SIGNAL*' then inc(m)
else
Begin
inc(m);
SignalName := Stringlist[m];
inc(m);
o := m;
while (((StringList[o]) <> '*SIGNAL*') AND ((StringList[o]) <> '*END*')) do inc(o);
if (o-m) < 3 then NewList.Add(SignalName);
End;
End;
End;
Vielen Dank nochmal und schönes Wochenende!