Чтение из файла
допустим есть текстовый файл содержащий следующие данные:
2 4 5 6 7
4 5 7 8 9
4 * 5 7 *
4 5 * 6 7
5 6 7 1 2
* - это пусто место
Как прочитать это файл и расставить каждое число в определенно место (каждой ячейки свое число) Stringgrid?
Да и если файл Excel как его прочитать и тоже расставить числа в ячейки, если ячейка Excel пустая, то и соответсвующая ячейка Stringgrid тоже пустая.
2 4 5 6 7
4 5 7 8 9
4 * 5 7 *
4 5 * 6 7
5 6 7 1 2
* - это пусто место
Как прочитать это файл и расставить каждое число в определенно место (каждой ячейки свое число) Stringgrid?
Да и если файл Excel как его прочитать и тоже расставить числа в ячейки, если ячейка Excel пустая, то и соответсвующая ячейка Stringgrid тоже пустая.
Цитата:
Originally posted by Asius
допустим есть текстовый файл содержащий следующие данные:
2 4 5 6 7
4 5 7 8 9
4 * 5 7 *
4 5 * 6 7
5 6 7 1 2
* - это пусто место
Как прочитать это файл и расставить каждое число в определенно место (каждой ячейки свое число) Stringgrid?
Да и если файл Excel как его прочитать и тоже расставить числа в ячейки, если ячейка Excel пустая, то и соответсвующая ячейка Stringgrid тоже пустая.
допустим есть текстовый файл содержащий следующие данные:
2 4 5 6 7
4 5 7 8 9
4 * 5 7 *
4 5 * 6 7
5 6 7 1 2
* - это пусто место
Как прочитать это файл и расставить каждое число в определенно место (каждой ячейки свое число) Stringgrid?
Да и если файл Excel как его прочитать и тоже расставить числа в ячейки, если ячейка Excel пустая, то и соответсвующая ячейка Stringgrid тоже пустая.
Если все по одной цифре, читай так:
for i:=1 to n do
begin
for j:=1 to m do
begin
readfile(F,ch);
if ch<>'*' then
StringGrid1.Cells[j]:=ch
else
StringGrid1.Cells[j]:='';
if j<>m then read(f,ch);
end;
readln(f);
end;
А если нет...
Читай числа посимвольно, до пробела или конца строки, и делай IntToStr;
А Ёксельный файл надо читать при помощи OLE, например. Это сложновато.