Delphi HTTP listbox

0

Witam mam problem chciałbym żeby IDHTTP pobierało z listbox ip i port proxy założmy ze mamy np 123.123.123:1234 i jak zrobić żeby listbox dzielił i wpisywał ip w odpowiednie pole i port w odpowiednie pole.Z góry dziękuje.

0

Możesz zrobić tak:
#1 Postaw na Formie komponent TMemo

procedure TForm1.Button1Click(Sender: TObject);
var 
  TekstDoSformatowania, IP, Port : String;
  TS : TStringList;
begin
TekstDoSformatowania := ListBox1.Items.Strings[ListBox1.ItemIndex]; //Czyli do TekstDoSfor.... zostaje przypisana linja która jest akurat zaznaczona

TS := TStringList.Create;
ExtractStrings([':'], [], TekstDoSformatowania), TS);  
{/\ To co było przed dwukropkiem, czyli 123.123.123.123 zostanie zapisane do pierwszej linji zmiennej TS,
To co było po dwukropku do drugiej lini, a sam dwukropek się usunie}

IP := TS[0]; //Do zmiennej IP zostaje przypisana linia memo o numerze 0 (czyli pierwsza)
Port := TS[1]; //do zmiennej Port zostaje przypisana linia memo o numerze 1 (czyli druga)

Takim sposobem w IP masz Ip a w Port masz Port.

1 użytkowników online, w tym zalogowanych: 0, gości: 1