Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2009, 18:05   #1
Djonik
Пользователь
 
Регистрация: 16.02.2009
Сообщений: 25
По умолчанию Проблема со строкой

Нужно записать в файл текст из Memo.В файл записывается всякая билибирда. Вот код:

Var
stroka :string; kl :Integer; FileProect :TFileStream;
begin
stroka:=Memo.Text+'#';
kl:=Length(stroka);
SetLength(Stroka,kl);
. . .
. . .
FileProect.Write(stroka,kl);
end.
Djonik вне форума Ответить с цитированием
Старый 15.04.2009, 18:17   #2
Ntlegend
Форумчанин
 
Аватар для Ntlegend
 
Регистрация: 12.05.2007
Сообщений: 373
По умолчанию

Memo1.Lines.SaveToFile(FileName);
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен:
"Перемен!Мы ждем перемен!"
Ntlegend вне форума Ответить с цитированием
Старый 15.04.2009, 19:15   #3
Djonik
Пользователь
 
Регистрация: 16.02.2009
Сообщений: 25
По умолчанию

Если б так просто было, я бы так и сделал. Нужно в один файл несколько таких строк записать. Если объявить String[20] например, то все нормально.

Последний раз редактировалось Djonik; 15.04.2009 в 19:19.
Djonik вне форума Ответить с цитированием
Старый 16.04.2009, 08:13   #4
S@fer
Форумчанин
 
Аватар для S@fer
 
Регистрация: 29.01.2009
Сообщений: 411
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   i: integer;
begin
// запись в файл
   AssignFile(f,'c:\1.txt');
   Rewrite(f);  // открыть для перезаписи
   for i:=0 to Memo1.Lines.Count do // строки нумеруются с нуля
          writeln(f, Memo1.Lines[i]);
   CloseFile(f); // закрыть файл
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   i: integer;
begin
//добавление в файл
   fName := Edit1.Text;
   AssignFile(f, 'c:\1.txt');
   Append(f);  // открыть для добавления
   for i:=0 to Memo1.Lines.Count do // строки нумеруются с нуля
          writeln(f, Memo1.Lines[i]);
  CloseFile(f); // закрыть файл
end;
S@fer вне форума Ответить с цитированием
Старый 16.04.2009, 12:32   #5
Djonik
Пользователь
 
Регистрация: 16.02.2009
Сообщений: 25
По умолчанию

Спасибо большое.
Djonik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача со строкой XaMeJleoH Паскаль, Turbo Pascal, PascalABC.NET 2 12.04.2009 19:07
Задача со строкой Noxil Паскаль, Turbo Pascal, PascalABC.NET 9 22.11.2008 22:54
Помогите С командной строкой manax Помощь студентам 6 08.11.2008 18:03
Помогите с командной строкой ARES-IVAN Помощь студентам 3 02.11.2008 19:22
Головоломка со строкой Garacio Общие вопросы Delphi 4 07.02.2007 01:38