VPF::trim string help needed - Форум программистов

huismori

Дата 3.3.2010, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 19.1.2010

Репутация: нет
Всего: нет

i want to trim the string from registry... i get the line from registry as 221.192.132.194:80 and i want to trim it to edit objects such as

Цитата

edit1.text (221)
edit2.text (192)
edit3.text (132)
edit4.text (194)
edit5.text (80)

i can get it as a single string but i want to put them in different edit objects... thats what i use for single string...

Код


var
Reg1:TRegistry;
Text:string;
begin
Reg1:=TRegistry.Create;
Reg1.RootKey:=HKEY_CURRENT_USER;
Reg1.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',true);
Text:=Reg1.ReadString('Proxyserver');
Reg1.CloseKey;
Reg1.Free;
Edit1.Text:=Text;

can someone please help me to trim it ?

former

Дата 3.3.2010, 17:14 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Use regular expressions.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

huismori

Дата 3.3.2010, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 19.1.2010

Репутация: нет
Всего: нет

thanks for the link but does it actually have anything to do with delphi ? i didnt understand it

Это сообщение отредактировал(а) huismori - 3.3.2010, 17:23

muratboy31

Дата 3.3.2010, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

try something like that

Код


procedure TForm1.Button1Click(Sender: TObject);
var
   A: TStringList;
begin
   A := TStringList.Create;
   try
     Split(' ', '212.224.195.258:80', A) ;
     Edit1.Text:= a[0];
     Edit2.Text:= a[1];
     Edit3.Text:= a[2];
     Edit4.Text:= a[3];
     Edit5.Text:= a[4];    
   finally
     A.Free;
   end;
end;

procedure TForm1.Split(const Delimiter: Char; Input: string; const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

Это сообщение отредактировал(а) muratboy31 - 3.3.2010, 18:46

huismori

Дата 3.3.2010, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 19.1.2010

Репутация: нет
Всего: нет

this works but it doesnt seperate after ':' it includes it to last string... i want to split 80 to another edit...

Код


procedure TForm1.Button1Click(Sender: TObject);
var
   A: TStringList;
begin
   A := TStringList.Create;
   try
     Split('.', '212.224.195.258:80', A) ;
     Edit1.Text:= a[0];
     Edit2.Text:= a[1];
     Edit3.Text:= a[2];
     Edit4.Text:= a[3];
     Edit5.Text:= a[4];    
   finally
     A.Free;
   end;
end;

procedure TForm1.Split(const Delimiter: Char; Input: string; const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »