RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Код (Pascal) :: выделить код procedure TForm1.ButtonFindClick(Sender: TObject); Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Код (Pascal) :: выделить код procedure TForm1.ButtonFindClick(Sender: TObject);
var i,j,nom,k,Kol:integer; //объявляем переменные
sw,s:string;
begin
if trim(EditLetter.Text)=' ' then // делаем проверку на ввод символа
begin
ShowMessage ('Введите символ');//вывод сообщения
EditLetter.SetFocus;
Exit;
end;
Kol:=0; // присваиваем значения переменным
Nom:=1;
for i:=0 to MemoText.Lines.Count -1 do //считываем файл
begin
s:=MemoText.Lines[i];
if s='' then continue; // делаем отбор пустых строк
if AnsiUpperCase(s[1])= AnsiUpperCase(EditLetter.Text[1]) then
begin
nom:=nom + 1;
MemoResuls.Lines.Add(IntToStr(nom) + '.' + s);
end;
for j:=1 to length(s) do
if s[j]='' then
begin
for k:=1 to length(s) do
if AnsiUpperCase(sw[k])= AnsiUpperCase(EditLetter.Text[1]) then
begin
kol:= kol +1;
break;
end;
sw:='';
end
else
sw:=sw + s[j];
end;
LabelKol.Caption:= 'Букву ' + EditLetter.Text + ' содержит' +
IntToStr(Kol) + ' слов';
LabelKol.Visible:=true;
end;
procedure TForm1.ButtonReadClick(Sender: TObject);
Var f:textFile;
s:string; // назначаем переменную
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
CloseFile(f);
End;
EditLetter.SetFocus;
end;
procedure TForm1.MemoTextChange(Sender: TObject);
var f:textfile;
s:string;
begin
MemoText.Lines.Clear;
while not eof(f) do
Begin
Readln(f,s);
MemoText.Lines.Add(s);
CloseFile(f);
end;
end;
end.Суть программы, что она должна открыть текстовый документ(стихотворение) и вывести его в Memo, код прописал, программа запускается, но файл не открывает. Работу приложен, делал по описанию (Часть 1)
Дата отправки: 22.05.2020, 00:53 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Nedix! Код (Pascal) :: выделить код procedure TForm1.ButtonReadClick(Sender: TObject);
Var
f:textFile;
s:string; // назначаем переменную
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
CloseFile(f);
End;© Цитата: Методичка Button – для открытия файла и считывания текста (Name =’ButtonRead’; Caption = ’Открыть’); Все есть, а чтения файла нет. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
