Форум: "Основная";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Вниз

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

← →
MAZA   (2003-05-11 17:09) [0]

Есть *.txt файл, по нажатию кнопки нужно из него загрузить в memo строки с 5 по 10 (напр).

---

← →
Song   (2003-05-11 17:26) [1]

Загрузить всё, потом ненужное удалить.

---

← →
MAZA   (2003-05-11 17:28) [2]

Типа засунуть в какой-нибудь memoX, а потом считывать строки в memo1?

---

← →
Anatoly Podgoretsky   (2003-05-11 17:29) [3]

ReadLn в цикле

---

← →
Song   (2003-05-11 17:31) [4]

Лучше засунуть не в Memo, а в TStrings, т.к. данные только временные - зачем визуальный объект?

---

← →
MAZA   (2003-05-11 19:16) [5]

т.е. создать что-то типа:

var
s:string;
begin
while not eof do
....
end;

если да, то как потом загрузить в s текст из файла.

---

← →
esu   (2003-05-11 19:38) [6]


procedure TMainForm.Button1Click(Sender: TObject);
var
f : TextFile;
i : integer;
s : string;
begin
AssignFile(f, "твой файл.txt");
reset(f);
for i := 1 to 10 do
begin
readln(f, s);
if (i >=5) and (i<=10) then
memo1.lines.add(s);
end;
CloseFile(f);
end;


---

← →
Song   (2003-05-11 19:39) [7]

ReadLn()

---

← →
MAZA   (2003-05-11 21:20) [8]

>Song © (11.05.03 19:39)

Переведи.

---

← →
Song   (2003-05-11 23:11) [9]

esu уже написал всё.

---

← →
default   (2003-05-11 23:41) [10]

procedure TMainForm.Button1Click(Sender: TObject);
var
f : TextFile;
i : integer;
s : string;
begin
AssignFile(f, "твой файл.txt");
reset(f);
for i := 1 to 4 do ReadLn(f);
for i := 5 to 10 do
begin
readln(f, s);
memo1.lines.add(s);
end;
CloseFile(f);
end;

так немного лучше

---

← →
MAZA   (2003-05-13 22:57) [11]

а возможно выводить напр для
- button1-строки с 1-5
- button2-строки с 6-10
и т.д.
при повторном нажатии на них.

---

← →
Palladin   (2003-05-13 23:14) [12]

никак нельзя! ни за что на свете!
но вот моя дерзкая попытка


function ReadLinesTo(ss:TStringList;p_strFileName:string;_From,_To:integer);
var
f:text;
s:string;
begin
assignfile(f,p_strFileName);reset(f);
for i:=1 to _From-1 do readln(f,s);
for i:=_From to _To
begin
readln(f,s);
ss.add(s);
end;
closefile(f);
end;


сделай работу над ошибками, и включи наконец голову

---

← →
Yuri-7   (2003-05-13 23:19) [13]

var
Form1: TForm1;
sl: TStringList;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=1 to 5 do memo1.Lines.Add(sl.Strings[i]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
for i:=6 to 10 do memo1.Lines.Add(sl.Strings[i]);
end;

initialization
sl:=TStringlist.Create;
sl.LoadFromFile("c:\temp\file.txt");
finalization
sl.free;
end.

---

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

Форум: "Основная";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c