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;
Du darfst nicht innerhalb o.g. Procedure deine Listen initialisieren. Dies muss/sollte im Hauptprogramm oder wo auch immer passieren.
Delphi-Quellcode:
{..............................................................................}
NetList:=TStringList.Create;
NetList.LoadFromFile('C:\Users\Name\Desktop\Test.NET');
SignalListe:=TStringList.Create();
GetSignalListe(NetList, SignalListe);
ShowMessage(SignalListe.Text);
SignalListe.Free();
{..............................................................................}