S.O.S. Текстовые файлы и MEMO

@shark-girl · Регистрация: 03.03.2009

Студворк — интернет-сервис помощи студентам

Необходимо написать программу, довольно таки простую, на первый взгляд. есть какой-то тектовый файл, необходимо открыть его пошагово в МЕМО т.е. при нажатии кнопки "Далее" выводиться первая строка, опять нажимаем кнопку-вторая и так далее.
какой именно цикл необходимо запустить? Помогите пожалуйста, нужно очень срочно до 8 марта!

@shark-girl · 09.03.2009, 16:23 **[ТС]**

Сообщение от marubik

procedure TForm1.Button1Click(Sender: TObject);var s:string;begin readln(f,s); Memo1.Lines.Add(s);end;

данная процедура загружает весь файл, полностью, а как сделать чтобы построчно? :'(

@Arriba · 09.03.2009, 17:29

shark-girl, Пришу лично для тебя, проверь моё предположение...
shark-girl,тут есть один подвох.
В ReadLn(f,s); в переменную S записывается не одна строчка из текстового файла а та часть которая разделена невидимыми символами #10#13 (проще-интер в конце строчки) Но есть такая фишка в текстовых файлах, как перенос по словам--это значит что не обязательно одна строчка разделённая интерами с двух сторон находится на одной строчке в файле...(Длинные строчки могут располагаться на нескольких строчках в файле) Так что учтите данный момент...обычно так получается если копируешь какой нибудь текст от куда нибудь...

@Arriba · 09.03.2009, 18:14

Вот я тебе в архиве кладу програмку твою со всеми пояснениями, надеюсь легко разберёшся, и я выкладываю два текстовых файла для примера...
Почитай начало файла "Для проверки.txt" и всё поймёшь...

@orfo · 09.03.2009, 20:56

Сообщение от marubik

Добавляешь адресную строку в образе TEdit.

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
 var
 dir:string;
 begin
  Dir:=ExtractFileDir(Application.exeName);
  WebBrowser1.Navigate(Dir+'/'+Edit1.Text);
 end;

программа не знает какой файл открывать из каталога, нужно чтобы сначала открыл index.html 2 клик index2.html. TEdit ? у меня webbrowser.
записал строчку

Delphi
1
WebBrowser_V11.Navigate(Dir+'/'+'index.html');

но не открывает следующий файл, + как избавиться от ошибок сценариев на странице (по умолчанию продолжить выполнение сценариев на странице) ошибка IE

Delphi
1
 ExtractFilePath(Application.ExeName)+'MyFile.html'

p.s. как растягивать окно webbrowser в зависимости от полноэкранного режима

@marubik · 09.03.2009, 22:03

Сообщение от orfo

нужно чтобы сначала открыл index.html 2 клик index2.html

Попробуй так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var
  Form1: TForm1;
  i:Integer;
...
procedure TForm1.Button1Click(Sender: TObject);
 var
 s:String;
  begin
  inc(i);
  if odd(i) then s:='index.html' else s:='index2.html';
    WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+s);
  end;

Это при условии, что твои html-файлы лежат в той же дректории, что и экзешник.

@Arriba · 09.03.2009, 22:15

orfo, p.s. как растягивать окно webbrowser в зависимости от полноэкранного режима---дорогой ты не с того начал дельфак изучать, у тебя таким макаром интерес пропадёт к нему...начни с чего нить попроще, а потом перейди к этому заданию...и узнаешь на сколько всё просто...Если мы тебе тупо прогу напишем это совсем плохо будет, ты просто скопируешь и всё...
свойство align меняй у TWebBr

@orfo · 10.03.2009, 00:00

Не по теме:

Arriba это конечно правильно я там быстро не выучу

@shark-girl · 15.03.2009, 12:57 **[ТС]**

Еще один вопросик, а можно сделать так, чтобы не строками загружался файл, а обзацами и без изменений т.е. в существующем виде так как он написан
Напр. procedure TRectangle.SetX1(ax1:integer);
Begin
X1:=a;
end;
загружается в МЕМО целиком, без перенесения строк????

@marubik · 15.03.2009, 18:59

Сообщение от shark-girl

обзацами и без изменений

Поясни, пожалуйста.

@Arriba · 17.03.2009, 23:07

Сообщение от marubik

Поясни, пожалуйста.

Да что тут пояснять то, девушка хочет вывести текствовый фаил так, как она его видит в текстовом редакторе(возможно с включённой функцией-перенос по словам)

Добавлено через 28 минут 41 секунду
shark-girl, девушка, вы уточните точно, что вам хочется получить в итоге---текстовый редактор или что нить ещё, может всё намного проще, чем вы придумываете...

@marubik · 18.03.2009, 04:52

Сообщение от shark-girl

загружается в МЕМО целиком, без перенесения строк

Так может, по-просту, WordWrap установить в True ?

@orfo · 30.03.2009, 00:29

Сообщение от marubik

Попробуй так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var
  Form1: TForm1;
  i:Integer;
...
procedure TForm1.Button1Click(Sender: TObject);
 var
 s:String;
  begin
  inc(i);
  if odd(i) then s:='index.html' else s:='index2.html';
    WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+s);
  end;

Это при условии, что твои html-файлы лежат в той же дректории, что и экзешник.

Delphi
1
2
3
4
5
6
7
8
s:String;
o:integer;
 
begin
  o:=o+1;
  inc(i);
 s:=('index'+IntToStr(o)+'.html');  
 WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+s);

попытался сделать так но к сожалению файлы webbrowser не находит ... суть в том чтобы страницы при каждом клике открывались 1 2 3 4 5 ... (index1.html index2.html)
что не так?

@marubik · 30.03.2009, 11:02

суть в том чтобы страницы при каждом клике открывались 1 2 3 4 5 ... что не так?

Все так. Только определись с числовой переменной. Попробуй следующий код.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
...
var
  Form1: TForm1;
  i:Integer;
  s:String;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(i);
s:=('index'+IntToStr(i)+'.html'); //html'ки лежат в той же директории что и exe'шник
 if fileExists(s) then  //Проверяем наличие файла
    WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+s)
 else                   //в противном случае ... придумай что-нибудь
end;
 
end.

@orfo · 30.03.2009, 18:58

marubik прокатило спс, а как сделать чтобы можно было возвращаться на предыдущую страницу? массив ?
p.s. если честно не шарю в делфи но очень нужно

@marubik · 30.03.2009, 20:30

как сделать чтобы можно было возвращаться на предыдущую страницу?

если честно не шарю в делфи но очень нужно

Если честно, Delphi здесь непричем.
Короче, вот код для двух кнопок. Туда и обратно.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
...
var
  Form1: TForm1;
  i:Integer;
  s:String;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(i);
s:=('index'+IntToStr(i)+'.html'); //html'ки лежат в той же директории что и exe'шник
 if fileExists(s) then  //Проверяем наличие файла
    WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+s)
 else                   //в противном случае
 dec(i);                // не даем переменной увеличиваться
 end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
dec(i);
s:=('index'+IntToStr(i)+'.html'); //html'ки лежат в той же директории что и exe'шник
 if fileExists(s) then  //Проверяем наличие файла
    WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+s)
 else                   //в противном случае
 inc(i);                // не даем переменной уменьшаться
 end;
 
end.

Большая просьба! Не повышай мою репутацию! Мне стыдно завоевывать ее за счет таких вопросов!

@orfo · 31.03.2009, 01:47

Не по теме:

marubik а мне стыдно спрашивать такое. Большое человеческое спасибо

@shark-girl · 03.04.2009, 16:27 **[ТС]**

поясняю, простите что так долго, есть текстовый файл, в нем есть абзацы, так надо чтобы в мемо выводился весь абзац, если ставить enter, то выводиться только одна строка абзаца, а вторая при повторном нажатии копки, а ставить пробелы вместо enter"а" нуторно, их не всегда подсчитать возможно! в итоге получается криво и косо, ну очень не красиво!!!!

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@shark-girl 0 / 0 / 1 Регистрация: 03.03.2009 Сообщений: 9

	S.O.S. Текстовые файлы и MEMO 03.03.2009, 16:11. Показов 6877. Ответов 36 Метки нет (Все метки) Необходимо написать программу, довольно таки простую, на первый взгляд. есть какой-то тектовый файл, необходимо открыть его пошагово в МЕМО т.е. при нажатии кнопки "Далее" выводиться первая строка, опять нажимаем кнопку-вторая и так далее. какой именно цикл необходимо запустить? Помогите пожалуйста, нужно очень срочно до 8 марта! 0

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	09.03.2009, 17:29
	shark-girl, Пришу лично для тебя, проверь моё предположение... shark-girl,тут есть один подвох. В ReadLn(f,s); в переменную S записывается не одна строчка из текстового файла а та часть которая разделена невидимыми символами #10#13 (проще-интер в конце строчки) Но есть такая фишка в текстовых файлах, как перенос по словам--это значит что не обязательно одна строчка разделённая интерами с двух сторон находится на одной строчке в файле...(Длинные строчки могут располагаться на нескольких строчках в файле) Так что учтите данный момент...обычно так получается если копируешь какой нибудь текст от куда нибудь... 1

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	09.03.2009, 22:15
	orfo, p.s. как растягивать окно webbrowser в зависимости от полноэкранного режима---дорогой ты не с того начал дельфак изучать, у тебя таким макаром интерес пропадёт к нему...начни с чего нить попроще, а потом перейди к этому заданию...и узнаешь на сколько всё просто...Если мы тебе тупо прогу напишем это совсем плохо будет, ты просто скопируешь и всё... свойство align меняй у TWebBr 1

@orfo
	10.03.2009, 00:00
	Не по теме: Arriba это конечно правильно я там быстро не выучу 0

@shark-girl 0 / 0 / 1 Регистрация: 03.03.2009 Сообщений: 9
	15.03.2009, 12:57 [ТС]
	Еще один вопросик, а можно сделать так, чтобы не строками загружался файл, а обзацами и без изменений т.е. в существующем виде так как он написан Напр. procedure TRectangle.SetX1(ax1:integer); Begin X1:=a; end; загружается в МЕМО целиком, без перенесения строк???? 0

@orfo 0 / 0 / 0 Регистрация: 04.03.2009 Сообщений: 12
	30.03.2009, 18:58
	marubik прокатило спс, а как сделать чтобы можно было возвращаться на предыдущую страницу? массив ? p.s. если честно не шарю в делфи но очень нужно 0

@orfo
	31.03.2009, 01:47
	Не по теме: marubik а мне стыдно спрашивать такое. Большое человеческое спасибо 0

@shark-girl 0 / 0 / 1 Регистрация: 03.03.2009 Сообщений: 9
	03.04.2009, 16:27 [ТС]
	поясняю, простите что так долго, есть текстовый файл, в нем есть абзацы, так надо чтобы в мемо выводился весь абзац, если ставить enter, то выводиться только одна строка абзаца, а вторая при повторном нажатии копки, а ставить пробелы вместо enter"а" нуторно, их не всегда подсчитать возможно! в итоге получается криво и косо, ну очень не красиво!!!! 0