0 / 0 / 1
Регистрация: 28.11.2015
Сообщений: 53
1

Все запускается выбираешь файл txt и вылазит ошибка . Покажите что не так

12.03.2016, 16:05. Показов 567. Ответов 4
Метки нет (Все метки)

что не правильно ? . Все запускается выбираешь файл txt и вылазит ошибка . Покажите что не так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  f:Textfile;
  s:string;
    begin
      if opendialog1.Execute  then
      assignfile(f,opendialog1.Filename);
      reset(f);
      memo1.Text:='';
       while not eof(f) do
        begin
          read(f,s);
          memo1.Text:=memo1.text+s;
        end;
      closefile(f);
    end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2016, 16:05
Ответы с готовыми решениями:

Вылазит ошибка в синтаксисе, что не так ?
Создал форму , нужно чтобы я ввел данные и они сохранились в базе SQL. Кнопки логин и пароль...

как сделать так, что бы когда запускается .exe файл все надписи оставались на русском языке
как сделать так, что бы когда запускается .exe файл все надписи оставались на русском языке, а то...

Переписать компоненты файла 1.txt в файл 3.txt так, чтобы в файле 3.txt числа шли в определенном порядке
Дан файл 1.txt, компоненты которого являются целыми числами.Файл 1.txt содержит столько же...

Sony Vagas не запускается. Вообще, даже ошибка не вылазит
Была версия 9.0е, работала. Прикупил оперативки для пк, установил, установил винду 64х (было 32х) ,...

4
Модератор
7875 / 5189 / 2156
Регистрация: 21.01.2014
Сообщений: 22,371
Записей в блоге: 3
12.03.2016, 16:11 2
Ерунда какая-то... Зачем все ЭТО?
Delphi
1
if opendialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
1
0 / 0 / 1
Регистрация: 28.11.2015
Сообщений: 53
12.03.2016, 16:17  [ТС] 3
Цитата Сообщение от D1973 Посмотреть сообщение
Ерунда какая-то... Зачем все ЭТО?
DelphiВыделить код
1
if opendialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

НУ да так проще ) Спасибо !
0
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,764
13.03.2016, 15:46 4
pepa, лучше:
Delphi
1
2
if not OpenDialog1.Execute then exit;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
0
Модератор
7875 / 5189 / 2156
Регистрация: 21.01.2014
Сообщений: 22,371
Записей в блоге: 3
13.03.2016, 15:55 5
AHBAR, правильно, лучше, но только если после загрузки файла подразумевается какой-то дальнейший код. Если нет, только загрузить файл и все - то это избыточно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2016, 15:55
Помогаю со студенческими работами здесь

Что не так? Дан текстовый файл F. Переписать в другой файл G все строки, содержащие цифры.
#include <iostream> #include <math.h> using std::cin; using std::cout; using std::endl; ...

Создать типизированный файл. Подскажите что не так, все работает, но в файл записываются всякие иероглифы?
Создать типизированный файл, куда записать n вещественных чисел. Из компонентов исходного файла...

все что идет в запросе сохраняется в txt файл
Всем привет. Нужно 2 скрипта, они похожи :) 1. Я создаю запрос на этот скрипт с параметрами:...

VirtualTree: таблица растягивается так, что вылазит за пределы фрейма
Есть компонента VurtualTree (TVirtualStringTree), выравнивание alClient. У нее 5 столбцов, 4...

Переписать все числа из файлов 1.txt и 2.txt в файл 3.txt
Здравствуйте! Нужна помощь. Есть два текстовых файла 1.txt и 2.txt в них есть числа....

Сделать так, чтобы входные данные записываются в файл input.txt, а выходные в output.txt
uses crt; const n=5; var a:array of integer; i,p1,p2:integer; Begin clrscr; p1:=1; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru