Проблема

← →
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 но дело в том что [ и ] есть

> Bast (02.09.07 23:32) [6]

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

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

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

--
Regards, LVT.

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

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

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