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

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

Загрузка информации из файла [D5, Win95/98]

Priz_Datiy ©   (2002-02-13 17:06:00) 

задача такая есть файл, нужно из него загрузить текст в едит... причем не весь =))) а с begin по end (текста всмысле)

---

Anatoly Podgoretsky   (2002-02-13 22:10:00) [1]

Priz_Datiy (13.02.02 17:06)

Смысла нет, TEdit однострочный орган, а у тебя многострочный текст, или грузи в многострочный орган, типа memo, richedit или откажишь от этой мысли.

---

StringList   (2002-02-13 20:19:00) [2]

procedure ExtractText(const FileName:string);
var
n,k:integer;
s:string;
SList:TStringList;
begin
SList:=TStringList.Create;
try
SList.LoadFromFile(FileName);
s:=SList.Text;
n:=Pos("begin",s);
if n > 0 then Inc(n,Length("begin"));
k:=Pos("end",s);
if (n > 0)and(k > 0)and(k > n) then
Memo1.Lines.Text:=Copy(s,n,k-n);
finally
SList.Free;
end;
end;

---

Priz_Datiy   (2002-02-13 18:33:00) [3]

и ни одной строки кода???
я совсем начинающий...

---

skywalker   (2002-02-13 17:17:00) [4]

открой файл как байтовый
найди begin
и читай файл в буфер пока не встретится end
потом преобразуй буфер в строки и добавь их в edit
:)

---

Fedorenko Igor   (2002-02-13 17:16:00) [5]

.... либо :) гоняй по файлу до begin
все что после и до end читай в твой контрол

---

Fedorenko Igor   (2002-02-13 17:15:00) [6]

1) загрузи весь
2) грохни все что до begin и после end
3) радуйся :)

---

Наверх