С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/22: Рейтинг темы: голосов - 22, средняя оценка - 4.91
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
1

Delphi не находит txt файл.

05.11.2011, 19:25. Показов 4229. Ответов 9
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Код:
Delphi
1
2
3
4
5
6
7

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(fin,'autobuy.txt');
reset(fin);
for failstr:=1 to 45 do begin
readln(fin);
end;
Выдает ошибки:
Delphi
1

Project Project1.exe raised exception class EInOutError with message 'File not Found'. Process stopped. Use Step or Run to Continue.
Delphi
1

File not Found
(Программа все-равно запускается)

В чём трабл то ? текстовый файл находится в 1 папке с программой, имеет название "autobuy.txt"

И кстати, как прописывать путь к файлу ? Если он расположен не в одной папке с программой ?

P.s.
Delphi
1

AssignFile(fin,'autobuy.text');
вместо
Delphi
1

AssignFile(fin,'autobuy.txt');
уже пробывал

Добавлено через 58 минут
Up Up Up
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 05.11.2011, 19:25
Ответы с готовыми решениями:

Delphi запись в txt файл
В DBGRID НАХОДИТСЯ ТАБЛИЦА, КАК ЕЕ ЗАПИСАТЬ В TXT ФАЙЛ ЧТОБЫ КОЛОНКИ БЫЛИ РОВНЫЕ ПРИМЕР КАК ДОЛЖНО...

если находит совподение, то создает текстовый файл - название которого искомый номер, а в сам txt файл встовляет 2 столбец
ривет всем! Ребята подскажите можно ли реализовать такое на С++: есть excel файл. в нем в первом...

Записать 200 случайных чисел в файл a.txt. В файл b.txt вывести четные, а в файл c.txt нечетные
Записать 200 случайных чисел в файл a.txt. В файл b.txt вывести четные, а в файл c.txt нечетные.

Программа-цензор. Пользователь вводит слово. Программа открывает файл text.txt, находит в нем заданное пользователем сло
Программа-цензор. Пользователь вводит слово. Программа открывает файл text.txt, находит в нем...

9
13107 / 5888 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
05.11.2011, 19:37 2
Если не задано полное имя файла, то имя формируется, на основе текущей активной папки. Активная папка может меняться, например, при вызове диалога открытия/сохранения файла. Причём, этот диалог может быть запущен в какой-то внешней программе. Поэтому надёжнее указывать полное имя файла. Например, так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

const
  Fn = 'autobuy.txt';
var
  F : TextFile
  S, FileName : String;
begin
  //Полное имя файла, который располагается в той же папке, где лежит
  //исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  AssignFile(F, FileName);
  Reset(F);
  while not Eof(F) do begin
    Readln(F, S);
    ...
  end;
  
  CloseFile(F);
end;
1
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
05.11.2011, 19:40  [ТС] 3
Цитата Сообщение от Mawrat Посмотреть сообщение
Если не задано полное имя файла, то имя формируется, на основе текущей активной папки. Активная папка может меняться, например, при вызове диалога открытия/сохранения файла. Причём, этот диалог может быть запущен в какой-то внешней программе. Поэтому надёжнее указывать полное имя файла. Например, так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

const
  Fn = 'autobuy.txt';
var
  F : TextFile
  S, FileName : String;
begin
  //Полное имя файла, который располагается в той же папке, где лежит
  //исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  AssignFile(F, FileName);
  Reset(F);
  while not Eof(F) do begin
    Readln(F, S);
    ...
  end;
  
  CloseFile(F);
end;
Что-т не совсем понял, в твоем коде надо что-то редактировать что-бы вставить в прогу ?
0
13107 / 5888 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
05.11.2011, 19:46 4
Там, где многоточие написано - там надо вставить свой код, который будет что-то делать с прочитанной из файла строкой S.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

procedure TForm1.FormCreate(Sender: TObject);
const
  Fn = 'autobuy.txt';
var
  F : TextFile
  S, FileName : String;
begin
  //Полное имя файла, который располагается в той же папке, где лежит
  //исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  AssignFile(F, FileName);
  Reset(F);
  while not Eof(F) do begin
    Readln(F, S);
    //Здесь какие-то действия со строкой S.
    //...
    //...
    //...
  end;
  
  CloseFile(F);
end;
1
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
06.11.2011, 00:30  [ТС] 5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

procedure TForm1.FormCreate(Sender: TObject);
const
  Fn = 'autobuy.txt';
var
  F : TextFile
  S, AutoBuy.txt : String;
begin
  //Ïîëíîå èìÿ ôàéëà, êîòîðûé ðàñïîëàãàåòñÿ â òîé æå ïàïêå, ãäå ëåæèò
  //èñïîëíÿåìûé ôàéë ïðîãðàììû.
  AutoBuy := ExtractFilePath(ParamStr(0)) + Fn;
  AssignFile(F, AutoBuy);
  Reset(F);
  while not Eof(F) do begin
    Readln(F, S);
    //Çäåñü êàêèå-òî äåéñòâèÿ ñî ñòðîêîé S.
    //...
    //...
    //...
  end;
Ошибка:

Delphi
1

[Error] Unit1.pas(70): Invalid compiler directive: 'S'
Ксатати, был бы приочень благодарен если-бы ты дописал чтоб:
Строка 1 выводилась в Memo1, и если текст в Memo1 изменить, то в текстовом файле она тоже изменится (Rewrite), проще говоря - привязать строчку 46 к Memo1, что-бы они зависили друг от друга.

Вот Memo1, если надо.
Delphi
1
2
3
4

procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo1.Text:=(Combo1s);
end;
0
13107 / 5888 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
06.11.2011, 11:46 6
Цитата Сообщение от LMapper Посмотреть сообщение
Ошибка
Это точка с запятой в конце предыдущей строки отсутствовала.
---
Редактирование М-й строки в текстовом файле:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

//Чтение из файла.
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'autobuy.txt';
  M = 10;
var
  F : TextFile;
  S, AutoBuy : String;
  i : Integer;
begin
  //Полное имя файла, который располагается в той же папке, где лежит
  //исполняемый файл программы.
  AutoBuy := ExtractFilePath(ParamStr(0)) + Fn;
  if not FileExists(AutoBuy) then begin
    MessageDlg(
      'Файл не найден. Действие отменено.'
      , mtWarning, [mbOk], 0
    );
    Exit;
  end;
 
  AssignFile(F, AutoBuy);
  Reset(F);
  S := '';
  i := 0;
  while not Eof(F) do begin
    Inc(i);
    //Пропускаем строки 1..M.
    if i < M then begin
      Readln(F);
      Continue;
    end;
    //Читаем M-ю строку и выходим из цикла чтения.
    Readln(F, S);
    Break;
  end;
  CloseFile(F);
 
  if i < (M - 1) then begin
    MessageDlg(
      'В файле меньше, чем ' + IntToStr(M) + ' строк текста.'
      + ' Действие отменено.'
      , mtWarning, [mbOk], 0
    );
    Exit;
  end;
 
  Memo1.Text := S;
end;
 
//Запись в файл.
procedure TForm1.Button2Click(Sender: TObject);
const
  Fn = 'autobuy.txt';
  M = 10;
var
  F, FTmp : TextFile;
  S, AutoBuy, FnTmp : String;
  i : Integer;
begin
  AutoBuy := ExtractFilePath(ParamStr(0)) + Fn;
  if not FileExists(AutoBuy) then begin
    MessageDlg(
      'Файл не найден. Действие отменено.'
      , mtWarning, [mbOk], 0
    );
    Exit;
  end;
 
  AssignFile(F, AutoBuy);
  Reset(F);
  //Проверка количества строк в файле.
  i := 0;
  while not Eof(F) do begin
    Inc(i);
    if i > 1 then Readln(F);
    Read(F, S);
    if i = M then Break;
  end;
  if i < (M - 1) then begin
    MessageDlg(
      'В файле недостаточно строк. ' + IntToStr(M) + '-я строка не может'
      +  ' быть записана. Действие отменено.'
      , mtWarning, [mbOk], 0
    );
    CloseFile(F);
    Exit;
  end;
 
  //В случае, если в файле (M - 1) строк.
  if i = (M - 1) then begin
    if M > 1 then Writeln(F);
    Write(F, Memo1.Text);
    CloseFile(F);
    Exit;
  end;
 
  //Если в файле М и более строк.
 
  //Запись изменений во временный файл.
  FnTmp := ExtractFilePath(ParamStr(0)) + '~' + Fn;
  AssignFile(FTmp, FnTmp);
  Rewrite(FTmp);
  Reset(F);
  i := 0;
  while not Eof(F) do begin
    Inc(i);
    //Для точного учёта переносов строк.
    if i > 1 then begin
      Readln(F);
      Writeln(FTmp);
    end;
    Read(F, S);
    if i <> M then
      Write(FTmp, S)
    else
      Write(FTmp, Memo1.Text)
    ;
  end;
 
  //Удаление исходного файла.
  CloseFile(F);
  Erase(F);
  //Переименование временного файла.
  CloseFile(FTmp);
  Rename(FTmp, AutoBuy);
end;
1
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
06.11.2011, 14:53  [ТС] 7

Ничего не менял, вставил твой код, так и не хочет находить файл.
Возможно это я туплю, скорее всего так и есть, что делать ?
0
13107 / 5888 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
06.11.2011, 15:23 8
Я, прежде чем опубликовать код, проверил его...
Выкладываю проект вместе с файлом autobuy.txt. В проекте M = 10 - т. е., редактирует 10-ю строку.
Вложения
Тип файла: rar EditLineInTxtFile.rar (173.2 Кб, 29 просмотров)
1
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
06.11.2011, 17:18  [ТС] 9
Цитата Сообщение от Mawrat Посмотреть сообщение
Я, прежде чем опубликовать код, проверил его...
Выкладываю проект вместе с файлом autobuy.txt. В проекте M = 10 - т. е., редактирует 10-ю строку.
Спасибо большое !
Не часто встречаются люди, которые готовы так помочь.
Теперь осталось покопаться в коде, и разбить на 6 мемо.
0
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
06.11.2011, 23:59  [ТС] 10
Извини, но чет у меня опять проблемка не большая, пытался добавить 2мемо, который редактирует N строчку - продублировав все действия с M.
Вывод в мемо2 норм, но когда сохраняешь - 'N' строчка текстового файла должна заменятся на Memo2.Text в программе, но вместо этого, Memo2.Text дописывается к 'N' строчке в файле, а не заменяется.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
//×òåíèå èç ôàéëà.
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'autobuy.txt';
  M = 10;
  N = 11;
var
  F : TextFile;
  S,G, AutoBuy : String;
  i : Integer;
begin
  //Ïîëíîå èìÿ ôàéëà, êîòîðûé ðàñïîëàãàåòñÿ â òîé æå ïàïêå, ãäå ëåæèò
  //èñïîëíÿåìûé ôàéë ïðîãðàììû.
  AutoBuy := ExtractFilePath(ParamStr(0)) + Fn;
  if not FileExists(AutoBuy) then begin
    MessageDlg(
      'Ôàéë íå íàéäåí. Äåéñòâèå îòìåíåíî.'
      , mtWarning, [mbOk], 0
    );
    Exit;
  end;
 
  AssignFile(F, AutoBuy);
  Reset(F);
  S := '';
  G := '';
  i := 0;
  while not Eof(F) do begin
    Inc(i);
    //Ïðîïóñêàåì ñòðîêè 1..M.
    if i < M then begin
      Readln(F);
      Continue;
    end;
    //×èòàåì M-þ ñòðîêó è âûõîäèì èç öèêëà ÷òåíèÿ.
    Readln(F, S);
    Break;
  end;
  while not Eof(F) do begin
    Inc(i);
    //Ïðîïóñêàåì ñòðîêè 1..N.
    if i < N then begin
      Readln(F);
      Continue;
    end;
    //×èòàåì N-þ ñòðîêó è âûõîäèì èç öèêëà ÷òåíèÿ.
    Readln(F, G);
    Break;
  end;
  CloseFile(F);
 
  if i < (M - 1) then begin
    MessageDlg(
      ' ôàéëå ìåíüøå, ÷åì ' + IntToStr(M) + ' ñòðîê òåêñòà.'
      + ' Äåéñòâèå îòìåíåíî.'
      , mtWarning, [mbOk], 0
    );
    Exit;
  end;
if i < (N - 1) then begin
    MessageDlg(
      ' ôàéëå ìåíüøå, ÷åì ' + IntToStr(N) + ' ñòðîê òåêñòà.'
      + ' Äåéñòâèå îòìåíåíî.'
      , mtWarning, [mbOk], 0
    );
    Exit;
  end;
 
  Memo1.Text := S;
  Memo2.Text := G;
end;
 
//Çàïèñü â ôàéë.
procedure TForm1.Button2Click(Sender: TObject);
const
  Fn = 'autobuy.txt';
  M = 10;
  N = 11;
var
  F, FTmp : TextFile;
  S,G, AutoBuy, FnTmp : String;
  i : Integer;
begin
  AutoBuy := ExtractFilePath(ParamStr(0)) + Fn;
  if not FileExists(AutoBuy) then begin
    MessageDlg(
      'Ôàéë íå íàéäåí. Äåéñòâèå îòìåíåíî.'
      , mtWarning, [mbOk], 0
    );
    Exit;
  end;
 
  AssignFile(F, AutoBuy);
  Reset(F);
  //Ïðîâåðêà êîëè÷åñòâà ñòðîê â ôàéëå.
  i := 0;
  while not Eof(F) do begin
    Inc(i);
    if i > 1 then Readln(F);
    Read(F, S);
    if i = M then Break;
  end;
  while not Eof(F) do begin
    Inc(i);
    if i > 1 then Readln(F);
    Read(F, G);
    if i = N then Break;
  end;
  if i < (M - 1) then begin
    MessageDlg(
      ' ôàéëå íåäîñòàòî÷íî ñòðîê. ' + IntToStr(M) + '-ÿ ñòðîêà íå ìîæåò'
      +  ' áûòü çàïèñàíà. Äåéñòâèå îòìåíåíî.'
      , mtWarning, [mbOk], 0
    );
    CloseFile(F);
    Exit;
  end;
  if i < (N - 1) then begin
    MessageDlg(
      ' ôàéëå íåäîñòàòî÷íî ñòðîê. ' + IntToStr(M) + '-ÿ ñòðîêà íå ìîæåò'
      +  ' áûòü çàïèñàíà. Äåéñòâèå îòìåíåíî.'
      , mtWarning, [mbOk], 0
    );
    CloseFile(F);
    Exit;
  end;
 
  // ñëó÷àå, åñëè â ôàéëå (M - 1) ñòðîê.
  if i = (M - 1) then begin
    if M > 1 then Writeln(F);
    Write(F, Memo1.Text);
    CloseFile(F);
    Exit;
  end;
  // ñëó÷àå, åñëè â ôàéëå (N - 1) ñòðîê.
  if i = (N - 1) then begin
    if N > 1 then Writeln(F);
    Write(F, Memo2.Text);
    CloseFile(F);
    Exit;
  end;
  //Åñëè â ôàéëå Ì è áîëåå ñòðîê.
 
  //Çàïèñü èçìåíåíèé âî âðåìåííûé ôàéë.
  FnTmp := ExtractFilePath(ParamStr(0)) + '~' + Fn;
  AssignFile(FTmp, FnTmp);
  Rewrite(FTmp);
  Reset(F);
  i := 0;
  while not Eof(F) do begin
    Inc(i);
    //Äëÿ òî÷íîãî ó÷¸òà ïåðåíîñîâ ñòðîê.  M
    if i > 1 then begin
      Readln(F);
      Writeln(FTmp);
    end;
    Read(F, S,G);
    if i <> M then
      Write(FTmp, S)
    else
      Write(FTmp, Memo1.Text);
    if i <> N then
      Write(FTmp, G)
    else
      Write(FTmp, Memo2.Text);
    //Äëÿ òî÷íîãî ó÷¸òà ïåðåíîñîâ ñòðîê.  M
  end;
  //Óäàëåíèå èñõîäíîãî ôàéëà.
  CloseFile(F);
  Erase(F);
  //Ïåðåèìåíîâàíèå âðåìåííîãî ôàéëà.
  CloseFile(FTmp);
  Rename(FTmp, AutoBuy);
end;
 
end.
Вложения
Тип файла: 7z EditLineInTxtFile.7z (164.3 Кб, 7 просмотров)
0
06.11.2011, 23:59
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 06.11.2011, 23:59
Помогаю со студенческими работами здесь

Запись, Сохранение и Чтение пути к БД Access в файл txt Delphi 7
P.S. После перемещения файла базы Access, при запуске проекта выбивает ошибку о том что программа...

Запись, Сохранение и Чтение пути к БД Access в файл txt Delphi 7
P.S. После перемещения файла базы Access, при запуске проекта выбивает ошибку о том что программа...

В папке К2 создайте файл t3.txt, в который перепишите вначале текст из файла t1.txt, а затем из t2.txt
Программным путем: 1. В папке С:\temp создайте папки К1 и К2. 2. В папке К1: a) создайте файл...

Создать новый файл qa.txt, который будет содержать строки с вопросами и ответами из файлов q.txt и a.txt.
В текстовом редакторе создать два текстовых файла q.txt и a.txt, которые соответственно содержат...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Как настроить CI/CD с помощью Jenkins
InfoMaster 15.01.2025
Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
Как создать игру "Танчики" на Unity3d и C#
InfoMaster 14.01.2025
Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram
_Ivana 14.01.2025
Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin
InfoMaster 14.01.2025
Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
Как создать приложение магазина для iOS/iPhone на Swift
InfoMaster 14.01.2025
Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru