Hallo Gollum, vielen Dank für deinen Beitrag. Ich habe die Prozedur nochmals leicht angepasst, aber beim ausführen passiert nichts!? Normalerweise müsste sich das Programm doch einem neuen Projekt in dieser Form ausführen lassen, so dass für die Message Boxen auch was angezeigt werden müsste, oder!?
Code:
Procedure GetSignalListe(source, dest:TStringList);
const
sSearch='*SIGNAL*';
Var
i:Integer;
s:String;
NetList : TStringList;
SignalListe : TStringList;
begin;
NetList := TStringList.Create;
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;
NetList.LoadFromFile('C:\Users\Name\Desktop\Test.NET');
SignalListe:=TStringList.Create();
{..............................................................................}
ShowMessage(NetList.Text);
GetSignalListe(NetList, SignalListe);
ShowMessage(SignalListe.Text);
SignalListe.Free();
{..............................................................................}
End.