Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 07.06.2012
Сообщений: 212

Не могу понять в чём заключается ошибка?

25.09.2012, 21:01. Показов 913. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всёвремя возникает ошибка вот тут ,могли бы вы подсказать в чём может быть дело?
[DCC Error] Unit1.pas(279): E2066 Missing operator or semicolon
Задача такая :функция load возвращает строку разделённую запятыми, мне необхолдимо
распарсить эту строку и возвратить её скажем в массив , я использую следующий год внизу.

Delphi
1
strs.DelimitedText(load(OpenDialog1.FileName));
Это точно не ошибка из-за возможно неправильного использования той или иной продцедуры или метода?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
var s:integer;
var  strs:TStringList;
begin
strs:=TStringList.Create;
If OpenDialog1.Execute then
begin
strs.Delimiter := ' ';
strs.QuoteChar:= ',';
strs.DelimitedText(load(OpenDialog1.FileName));
for s:=0 to strs.Count  do
ShowMessage(strs[s]);
end;
end;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.09.2012, 21:01
Ответы с готовыми решениями:

Не могу понять в чем заключается ошибка.
#include <iostream.h> #include <conio.h> #include <string.h> struct air {char punkt; float vriz; float vrpr; int ksm; int...

Не могу понять в чем ошибка
Есть файл index.php, script.js и ajax_fun.php Дак вот, я посылаю ajax запрос в файл ajax_fun.php Там код: ...

не могу понять в чем ошибка!
не могу понять в чем ошибка! вот проект , посмотрите плиззз! работа Delphi Excel

9
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33399 / 21509 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
25.09.2012, 21:23
Это ошибка из-за того, что компилятор не знает ничего про функцию Load. Нет у StringList-а такой функции, которая грузила бы содержимое файла и возвращала его одной строкой. Надо прочесть его LoadFromFile, и потом брать строку через свойство Text...
0
1085 / 571 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
25.09.2012, 21:24
Delphi
1
strs.DelimitedText:=load(OpenDialog1.FileName);
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33399 / 21509 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
25.09.2012, 21:35
И что такое load?
0
1085 / 571 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
25.09.2012, 21:45
Думаю, это реализация какой-то своей функции. Со слов ТС это:
функция load возвращает строку разделённую запятыми
значит по идее, имеет тип string
0
1 / 1 / 0
Регистрация: 07.06.2012
Сообщений: 212
25.09.2012, 22:04  [ТС]
UI,load - функция возвращающая строку разделённую запятыми.
Все манипуляции с файлом делает функция load , я не очень понимаю , что тут может быть непонятного.

Добавлено через 2 минуты
antikiler_, совершенно верно!!!

Добавлено через 7 минут
antikiler_,спасибо вам большое разобрался надо ещё раз внимательнее азы почитать - непривычно пока работать с компонентами.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33399 / 21509 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
25.09.2012, 23:05
Цитата Сообщение от saladd Посмотреть сообщение
я не очень понимаю , что тут может быть непонятного.
Я не очень понимаю, зачем писать свою функцию, которая будет получать содержимое файла, разделенное запятыми, потом загонять это содержимое через DelimitedText в stringlist, чтобы получить слова по отдельности (да еще делать это некорректно). В конце концов, никто не отменял ExtractStrings, которым всё делается в одну строку.

А теперь - вопрос на засыпку: каким образом Load получает разделенное запятыми содержимое файла? Неужели читает в StringList, и возвращает CommaText? Может, ей лучше возвращать сам список, а не гонять его содержимое туда-сюда?
0
1 / 1 / 0
Регистрация: 07.06.2012
Сообщений: 212
26.09.2012, 18:19  [ТС]
UI,
Вот ,что находится у меня в функции Load.
Посмотрел метод ,который вы мне посоветовали , пока не очень понятно.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function load(path:string): string;
var
  str: string;
  f: textfile;
begin
  AssignFile(f,path);
  Reset(f);
  while not eof(f) do
  begin
    Readln(f,str);
    Result:=Result+str;
 
  end;
  closefile(f);
end;
0
angstrom
26.09.2012, 22:09
Result, предварительно очистить нужно. Иначе там что угодно может быть.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function load(path:string): string;
var
  str: string;
  f: textfile;
begin
  Result := ''; // Здесь
  AssignFile(f,path);
  Reset(f);
  while not eof(f) do
  begin
    Readln(f,str);
    Result:=Result+str;
 
  end;
  closefile(f);
end;
1085 / 571 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
26.09.2012, 23:31
На счёт result точно незнаю, но на счет str - это точно
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.09.2012, 23:31
Помогаю со студенческими работами здесь

Не могу понять в чем ошибка
#include<stdio.h> #include<math.h> #include<conio.h> int main(){ double a,b,c; double x1,x2,D,x; printf("Enter a b...

Не могу понять в чём ошибка
Вот исходничек: <?php if (isset($_GET)&&isset($_GET)&&isset($_GET)): { $Host = ($_GET); $User = ($_GET); ...

Не могу понять в чем ошибка
Вот код: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...

Не могу понять в чем ошибка
Дан массив 5 на 5, нужно написать процедуру, которая будет искать наибольший элемент в строке. program n1; var a: array of integer;...

не могу понять в чем ошибка
Есть скрипт $host = "localhost"; $user = "admin"; $pass = "admin"; $db = "Proba"; $link = mysql_connect ($host, $user,...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru