void __fastcall TForm1::N4Click(TObject *Sender)
{
char s[100];
char* s1;
FILE *f;
int pp=0;
if (OpenDialog1->Execute())
{
if(f=fopen(OpenDialog1->FileName.c_str(), "r"))
{
do
{
fgets(s, 100, f);
Memo1->Lines->Add(s);
if(feof(f)) break;
}
while (true);
fclose(f);
}
}
Memo. 2 вопроса. И я отстану :)
Собственно, первый: Почему при компиляции в поле Memo (в ехе-файле) сохраняется его имя?:)
Ну с этим частично поборолся,
Memo1->Lines->Delete(0);
Memo2->Lines->Delete(0);
Возможно есть еще какой способ?
и второе:
Этот код читает строки из обычного текстового файла (сохраненного в ANSI) в поле Memo1
Однако, почему то в поле Memo1 появляются еще какие то квадратики в конце каждой строки, кроме последней
Как от них избавиться? Возможно, стоит сохранять файл как то по другому?
Или что то пофиксить в самой программе?
Ну с этим частично поборолся,
Memo1->Lines->Delete(0);
Memo2->Lines->Delete(0);
Возможно есть еще какой способ?
и второе:
Код:
Этот код читает строки из обычного текстового файла (сохраненного в ANSI) в поле Memo1
Однако, почему то в поле Memo1 появляются еще какие то квадратики в конце каждой строки, кроме последней
Как от них избавиться? Возможно, стоит сохранять файл как то по другому?
Или что то пофиксить в самой программе?
Вообщето есть метод Clear, позволяющий очистить все строки. Во вторых, в свойствах компонента достаточно выбрать поле Lines - и удалить от туда все.
По второму вопросу - загрузку фала в TMemo выполняют так:
В третьих - форум - не замена справки.
По второму вопросу - загрузку фала в TMemo выполняют так:
Код:
if (!OpenDialog1->Execute())return;
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
В третьих - форум - не замена справки.