нужна ваша помощь

[SashaB]

Друзья, нужна помощь начинающему программисту.
Хочу написать на мой взгляд не очень сложную программку в Delphi 7.
Например есть файл созданный в блокноте - в нем 10 строк по 5 чисел от 1 до 10 (через пробел).
Их нужно сделать переменными а потом подсчитать какое число больше всего встречалось в этих строках.
Вроде всё

[Alar]

1) нужно считать данные из файла, самое простое загрузить в memo. например, memo1.lines.loadfromfile('1.txt'), теперь можно уже работать с memo.

memo1.lines[0] ...

[SashaB]

Сообщение от Alar

1) нужно считать данные из файла, самое простое загрузить в memo. например, memo1.lines.loadfromfile('1.txt'), теперь можно уже работать с memo.

memo1.lines[0] ...

Я взял для примера 3 переменных.
Вот часть проги:

var x,y,z:real;
begin
memo4.Clear;
memo1.lines.loadfromfile('1.txt');
memo2.lines.loadfromfile('2.txt');
memo3.lines.loadfromfile('3.txt');
x:=strtofloat(memo1.text);
y:=strtofloat(memo2.text);
z:=strtofloat(memo3.text);
.....
А если к примеру у меня будет не x,y,z а 100 таких переменных, то мне 100 файлов ***.txt создавать. ?
Или все таки есть способы попроще?

[SuperVisor]

Сообщение от SashaB

А если к примеру у меня будет не x,y,z а 100 таких переменных, то мне 100 файлов ***.txt создавать. ?
Или все таки есть способы попроще?

Ты немножко непонял, Alar имел ввиду, что из ОДНОГО файла, в котором как ты сказал есть десять строк по пять чисел, нужно загрузить в Memo все строки с помощью команды memo1.lines.loadfromfile('Имя файла'), а уже после работать с Memo, а не с самим файлом.

[zetrix]

Зря так делаете. Ничего загружать не надо, надо напрямик считывать в массив. Напомню одну важную вещь: если из текстового файла читать число (read(f,i); //где f:textfile, а i:integer), тогда бедет считано ОДНО число (до первого пробела). Таким образом не надо будет парится с распознаванием чисел (отслеживать пробелы, переводить строку в число и прочее...)
Как делать понятно? (могу код написать только вечером)

[SashaB]

Сообщение от zetrix

Зря так делаете. Ничего загружать не надо, надо напрямик считывать в массив. Напомню одну важную вещь: если из текстового файла читать число (read(f,i); //где f:textfile, а i:integer), тогда бедет считано ОДНО число (до первого пробела). Таким образом не надо будет парится с распознаванием чисел (отслеживать пробелы, переводить строку в число и прочее...)
Как делать понятно? (могу код написать только вечером)

Вот это то что надо.
Но я попробовал только что, ниче не выходит. Если не сильно тяжело то напишите код.

Сообщение от SuperVisor

Ты немножко непонял, Alar имел ввиду, что из ОДНОГО файла, в котором как ты сказал есть десять строк по пять чисел, нужно загрузить в Memo все строки с помощью команды memo1.lines.loadfromfile('Имя файла'), а уже после работать с Memo, а не с самим файлом.

Это уже мне понятно.
А вот как дальше с Memo работать?
Как этот набор строк и чисел преобразовать в массив!?

[Alar]

Сообщение от SashaB

Это уже мне понятно.
А вот как дальше с Memo работать?
Как этот набор строк и чисел преобразовать в массив!?

может это гораздо сложнее просто я уже давно так работаю...
нужно написать цикл от 0 до count-1 строки и считывать посимволно новое число до пробела, потом strtoint, в массив. Делай как посоветует zetrix, это классическое pascal решение.

[SashaB]

Сообщение от Alar

может это гораздо сложнее просто я уже давно так работаю...
нужно написать цикл от 0 до count-1 строки и считывать посимволно новое число до пробела, потом strtoint, в массив. Делай как посоветует zetrix, это классическое pascal решение.

Может и сложнее но мне и таким способом хотелось бы попробовать.
Ну преобразовать числа в массив, при помощи цикла для меня не проблема, только если они будут стоять не через пробел, а каждое число на разной строке, а мне нужно что бы в строке было не одно число
А вот как считать посимвольно число до пробела?

[SuperVisor]

все просто - объявляешь строчку для буфера, если находишь цифру - добывляешь ее в строку-буфер, натыкаешься на пробел - преобразовываешь буфер в переменную, потом буфер чистишь и продолжаешь цикл.

[zetrix]

var
  Form1: TForm1; a:array[1..5,1..10] of byte;//массив, куда всё будет сохранено

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile; i,j:byte;
begin
assignfile(f,'111.txt'); //твой файл с числами
reset(f); //открытие файла для чтения
for i:=1 to 10 do
 begin
 for j:=1 to 5 do read(f,a[j,i]); //чтение чисел
 readln(f); //переход на следующую строчку
 end;
closefile(f); //закрытие файла
end;

Здесь написано просто чтение чисел, а какое чаще всего встречалось - это уже дело не сложное.