Работа с файлом
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Работает. Ток на выводе закарючки.Как от них избавиться? Дело в ASCI?
Ввел на англ.Все нормально
Ввожу сотрудников черезз Ентер.При выполнении программы читается только 1 строчка.Как сделать чтоб он читал все?
Можно конечно записать чтоб было все в одной строке.Ну над тогда подгонять чтоб было ровно 

[syntax='Delphi']" писал(а):Как сделать чтоб он читал все?
while not eof(F) do
readln(F,S);
[/syntax]
Ни что так не ограничивает фантазию программиста, как компилятор...
Спасиб! Ну а что по поводу кодировки можете посоветовать?
Записывать в той же кодировке, в которой работает компилятор. Если это Дельфи - ANSI. Если Паскаль - OEM. Взять текстовый редактор, который умеет работать с разными кодировками (Bred, Aditor и т.д).
Перенес тему в "Решите мне задачку"
Перенес тему в "Решите мне задачку"
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Скажите люди любезные, как из текстового файла записать в двухмерный массив данные.Таким образом
*.Тхт
Иванов Директор
Петров Кассир
Масив
Иванов Директор
Петров Кассир
Изменить данные в массиве. К примеру
Масив
Гранатов Директор
Петров Уборщик
И потом записать все ето обратно в текстовый файл
*.Тхт
Иванов Директор
Петров Кассир
Масив
Иванов Директор
Петров Кассир
Изменить данные в массиве. К примеру
Масив
Гранатов Директор
Петров Уборщик
И потом записать все ето обратно в текстовый файл
Лучше использовать не двумерный массив, а тип "Запись".
Ну, например, так:
[syntax='Delphi']
type
TEmploeye=record
name:string;
post:string;
end;
var
workers:array[1..N] of TEmploeye;
begin
.....
workers.Name:='Иванов';
workers.Post:='Директор';
end;
[/syntax]
Ну, например, так:
[syntax='Delphi']
type
TEmploeye=record
name:string;
post:string;
end;
var
workers:array[1..N] of TEmploeye;
begin
.....
workers.Name:='Иванов';
workers.Post:='Директор';
end;
[/syntax]
Ни что так не ограничивает фантазию программиста, как компилятор...