|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
чтобы напечатоть(((
Подскажите пожалуйста есть большой файл txt мне нужно сделать так чтобы когда я в edit ввожу фразу из текста В Memo выводила несколько строк из этого файла после этой фразы чтобы напечатоть(((
Последний раз редактировалось rycu44, 21.07.2011 в 22:44. |
#2
|
||||
|
||||
Исправь орфографические ошибки, и дам рабочий код.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
||||
|
||||
Перечитал несколько раз, смысла так и не уловил.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
|||
|
|||
Извеняюсь
Всё исправил
|
#5
|
||||
|
||||
Всё равно не догоняю:
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
|||
|
|||
Так будет по понятнее))
|
#7
|
||||
|
||||
Всё, сдаюсь. Мне эта шифровка не по-зубам.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#8
|
||||
|
||||
Почти всё. Ну да ладно.
Код:
procedure TForm1.Button1Click(Sender: TObject); var stream: TFileStream; text, buf: string; pos1: int64; begin text := Edit1.Text; stream := TFileStream.Create('C:/file.txt',fmOpenRead); pos1 := -1; stream.Seek(0, soFromBeginning); SetLength(buf, Length(text)); while stream.Position < stream.Size do begin stream.Read(buf[1], Length(text)); if pos(text, buf)>0 then begin pos1 := stream.Position - Length(text); break; end; stream.Seek(1 - Length(text), soFromCurrent); end; if pos1 > -1 then begin SetLength(buf, stream.Size - pos1); stream.Seek(pos1, soFromBeginning); stream.Read(buf[1], stream.Size - pos1); Memo1.Text := buf; stream.Free; end; end; Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 21.07.2011 в 22:51. |
#9
|
|||
|
|||
А теперь понятно написоно?
|
#10
|
||||
|
||||
Всё равно с орфографией беда. И, да, запятая ставится нажатием на кнопку Shift и одновременно - на кнопку чуть правее буквы "Ю".
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#11
|
||||
|
||||
Я уже сдался. DJ PhoeniX, завидую, тебе бы дешифровальщиком работать.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 21.07.2011 в 23:02. |
#12
|
|||
|
|||
Спасибо большое))) ну конечно хотелось бы чтобы всего строчек 5 показовало бы(
|
#13
|
|||
|
|||
Извините сегодня очень устал только с роботы пришел(
|
#14
|
||||
|
||||
С работы, прости меня? Блин, вот тебе и стереотипы...
И так пишет взрослый человек? *facepalm* Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#15
|
|||
|
|||
Мне 16 лет
|