Скачать: CL | DM;

Pos   Найти похожие ветки 

← →
Оксана Вл.   (2008-07-21 14:29) [0]

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


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:32) [1]

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

---

← →
TUserClass ©   (2008-07-21 14:32) [2]

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

---

← →
Dennis I. Komarov ©   (2008-07-21 14:32) [3]

Где пишет то?

---

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

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

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

---

← →
Ega23 ©   (2008-07-21 14:34) [5]

тип 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:40) [6]

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


  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$

---

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

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

---

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

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

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

---

← →
Оксана Вл.   (2008-07-21 14:48) [9]

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

---

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

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

---

← →
Оксана Вл.   (2008-07-21 14:51) [11]

:(

---

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

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

---

← →
Игорь Шевченко ©   (2008-07-21 14:53) [13]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c