Ausschneiden mit Delete

[alf.stefan]

Hallo Leute

vielleicht ist das jetzt eine Holzhammermethode aber warum nicht einfach mit TStrings machen??

hier ist das was ich meine

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sIps : TStrings;
  i : byte;
  sOut : string;
  onlyIp, Port: String;
  dp : byte;
const
  deinString : string = 'ftp=195.100.85.159:3128;gopher=195.100.85.159:3128;http=195.100.85.159:3128;https=195.100.85.159:3128';
begin
  sIpS := TStringList.Create;

  sIps.Delimiter := ';';
  sIps.DelimitedText := deinString;
  sOut := '';
  for i:= 0 to sIps.Count-1 do
  sOut := sOut+sIps.Strings[i]+#13#10;

  // alle
  ShowMessage(sOut);

  // nur http
  sOut := sIps.Values['Http'];
  ShowMessage(sOut);
  dp := pos(':',sOut);

  onlyIp := midStr(sOut,1,dp-1);
  Port := midStr(sOut,dp+1,length(sOut));

  showMessage(onlyIp+#13#10+port);


end;

was spricht dagegen es So zu machen???


Gruß

Stefan