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:51) [11]

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

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

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