| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Pos

Оксана Вл. ©   (2008-07-21 14:29:00) 

Скажите почему пишет несоответствие типов?


if opendialog1.Execute
 then
     begin
     textfile:=TStringList.Create();
     textfile.LoadFromFile(opendialog1.FileName);
     i_pos:= pos('$', textfile);
     if i_pos > 0 then
     copy_str:= trim(copy(textfile, i+1, length(textfile) - i))
     else
     showmessage('Ôàéë ïóñò');
     form8.Show;
     end;


---

Игорь Шевченко   (2008-07-21 14:53:00) [1]

читаем правила и уважаем их. В части оформления темы вопроса

---

Медвежонок Пятачок   (2008-07-21 14:52:00) [2]

не бойся, это не больно.

---

Оксана Вл.   (2008-07-21 14:51:00) [3]

:(

---

Медвежонок Пятачок   (2008-07-21 14:49:00) [4]

ну теперь цикл рисуй, Оксана

---

Оксана Вл.   (2008-07-21 14:48:00) [5]

ну да... это я уже поменяла

---

Медвежонок Пятачок   (2008-07-21 14:47:00) [6]

i_pos:= pos('|', textfile.Text);

Для начала
i_pos:= pos('$', textfile.Text);

---

Оксана Вл.   (2008-07-21 14:43:00) [7]

точней наоборот
$1$2$3$4

---

Оксана Вл.   (2008-07-21 14:40:00) [8]

Ясно спасибо! и ещё вопрос... как мне содержимое файла добавить в стринггрид
я делаю так, но понимаю что не правильно, подскажите как в каждую ячейку забить данные слова разделяются долларом


  i_cels:=i_cels+1;
     textfile:=TStringList.Create();
     textfile.LoadFromFile(opendialog1.FileName);
     i_pos:= pos('|', textfile.Text);
     if i_pos > 0 then
     copy_str:= trim(copy(textfile.Text, i_pos+1, length(textfile.Text) - i_pos))
     else
     showmessage('Ôàéë ïóñò');
     form8.StringGrid1.Cells[1, i_cels]:=copy_str;


типа
1$2$3$4$

---

Ega23   (2008-07-21 14:34:00) [9]

тип string и класс TStringList - разные вещи.


if not opendialog1.Execute then Exit;
textfile:=TStringList.Create();
try
 textfile.LoadFromFile(opendialog1.FileName);
 i_pos:= pos('$', textfile.Text);
 if i_pos > 0 then
   copy_str:= trim(copy(textfile.Text, i+1, length(textfile.Text) - i))
 else
   showmessage('Ôàéë ïóñò');
 form8.Show;
finally
 textfile.Free;
end;


---

Медвежонок Пятачок   (2008-07-21 14:33:00) [10]

Скажите почему пишет несоответствие типов?

Потому что требуется string, а подсовывают TStringList

---

Медвежонок Пятачок   (2008-07-21 14:32:00) [11]

правильно пишет

---

TUserClass   (2008-07-21 14:32:00) [12]

i_pos:= pos('$', textfile .text);

---

Dennis I. Komarov   (2008-07-21 14:32:00) [13]

Где пишет то?

---

Наверх