Текущий архив: 2007.09.30;
Скачать: CL | DM;

Вниз

Проблема   Найти похожие ветки 

← →
Bast   (2007-09-02 22:06) [0]

Немогу понять в чем ошибка... Формат файла такой:test@mail.ru:password[smtp.mail.ru]pop.mail.ru
email:=Tstringlist.Create;
email.LoadFromFile(form1.Edit12.Text);
t:=Pos("@", email.Strings[x]); // Íàõîäèì "@"
v:=Pos(":", email.Strings[x]); // Íàõîäèì ":"
g:=Pos("[", email.Strings[x]); // Íàõîäèì "["
h:=Pos("]", email.Strings[x]); // Íàõîäèì "]"
form1.edit3.Text:= Copy(email.Strings[x], 1, t - 1);
form1.edit10.Text:=Copy(email.Strings[x], 1, v-1);
form1.Edit4.Text:=Copy(email.Strings[x], v+1, g-1);
form1.Edit1.Text:=Copy(email.Strings[x], g+1, h-1);
form1.Edit2.Text:=Copy(email.Strings[x], h+1, 255);

---

← →
Anatoly Podgoretsky ©   (2007-09-02 22:13) [1]

> Bast  (02.09.2007 22:06:00)  [0]

Ну постарайся

---

← →
Bast   (2007-09-02 22:22) [2]

Можете подсказать что не так?

---

← →
Bast   (2007-09-02 22:23) [3]

ой пля
ПЕРЕМЕННАЯ X :)

---

← →
Bast   (2007-09-02 22:32) [4]

Объясните почему переменные g, h = 0?

---

← →
Leonid Troyanovsky ©   (2007-09-02 22:40) [5]

> Bast   (02.09.07 22:32) [4]

> Объясните почему переменные g, h = 0?

Delphi help: Pos Routine:

If Substr is not found, Pos returns zero.

--
Regards, LVT.

---

← →
Bast   (2007-09-02 23:32) [6]

test@mail.ru:password[smtp.mail.ru]pop.mail.ru но дело в том что [ и ] есть

---

← →
Leonid Troyanovsky ©   (2007-09-02 23:48) [7]

> Bast   (02.09.07 23:32) [6]

> test@mail.ru:password[smtp.mail.ru]pop.mail.ru но дело в
> том что [ и ] есть

Здесь - есть, а там, очевидно, нет.

Чудеса, конечно, бывают, но очень редко.

--
Regards, LVT.

---

← →
Reindeer Moss Eater ©   (2007-09-02 23:54) [8]

Лекарство от чудес:

g:=Pos("[", email.Strings[x]);
if g = 0 then
ShowMessage("Ё-маё! А ведь и правда нету скобок"#13#10 + email.Strings[x]);

---

Страницы: 1 вся ветка

Текущий архив: 2007.09.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.015 c