Stringliste nach Zeichen trennen und auslesen

[Gollum]

Hallo,

vielleicht so?

Delphi-Quellcode:

procedure GetSignalListe(source, dest:TStringList);
const
  sSearch='*SIGNAL*';
var
  i:Integer;
  s:String; 
begin
  dest.Clear();
  for i:=0 to source.Count-1 do
  begin
    s:=source.Strings[i];
    if Pos(sSearch, s)>0 then
      dest.Add(Copy(s, Length(sSearch)+1, Length(s)-Length(sSearch)-1);
  end; // for i
end; // GetSignalListe
...
...
NetList.LoadFromFile(Filepath);
SignalListe:=TStringList.Create();
  ....
  GetSignalListe(NetList, SignalListe);
  ShowMessage(SignalListe.Text);
  ...
SignalListe.Free();
...