Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.12.2013, 01:02
krreminator krreminator вне форума
Прохожий
 
Регистрация: 05.12.2013
Сообщения: 1
Версия Delphi: Delphi 5
Репутация: 10
По умолчанию Лаба

Прошу помощи. Задание лабы состоит в программировании одной кнопки текстового редактора, в котором присутствуют ListBox и RichEdit. Кнопка должна выполнять следующие действия:
В Каждой строчке RichEdit-а найти слово в центре строки. Слова разделяются пробелами. Найденные слова записать в новый файл.
У меня есть некоторые наработки, но знаю, что в чем-то есть ошибка, подскажите, пожалуйста, в чем:
Код:
procedure TForm1.ToolButton13Click(Sender: TObject);
var s: array [1..10] of integer; s1,s2,s3,s4: string; i,j,k:integer; f: TextFile ;
begin
for i:=1 to length(richedit1.lines.strings[i]) do
  s[i]:=trunc(length(richedit1.lines.strings[i])/2);
  begin
  for j:=s[i] downto 1  do
    s1:=richedit1.lines.strings[j];
    s2:=' ';
   while (s1)<>' ' do
       s2:=s2+s1[j];
        break;
   end;
   begin
   for k:=s[i] to length(richedit1.lines.strings[i]) do
   s1:=richedit1.lines.strings[j];
   s3:=' ';
   while (s1)<>' ' do
       s3:=s3+s1[j];
        break;

       end;
      s4:=s2+s3;
      AssignFile(f, '*.txt');
      Append(f);
      Writeln(f, s4);
      Closefile(f);
     end;
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:07.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025