@ТришаМакМиллан

Как по символьно считывать данные из файла?

Добавлено через 32 минуты
или это сделать не возможно?

0

Одиночка

Есть разные вырианты. Смотря зачем тебе это нужно и какой файл.

1

@ТришаМакМиллан

ну мне нужно считать символ и проверит не является ли он переходом на новую строчку

0

Одиночка

Если работаешь с текстовым файлом это можно проверить EOln(f) - проверка признака конца строки.

1

@mjsd

в эту же топку вопрос мне нужно организовать посимвольное чтение данных в моем случае это двумерный массив чисел разделенных пробелами соответсвенно и энтер между строками
0 0 1 2
0 1 2 0
1 2 0 0
2 0 0 0 нужно что бы читалось посимвольно и заносилось в переменные

0

Одиночка

Только для однозначных чисел.

0

angstrom

ReadLn ведь сам может всё сделать

Одиночка

angstrom: Это если знаешь размерность массива.

0

angstrom

Чаще всего так и бывает.

@mjsd

а у меня не все числа однозначные там или чар или стринг надо только я вообще не знаю как

0

angstrom

Разговор был о количестве данных в строке.

Одиночка

mjsd: У тебя количество данных в строке известно? Сколько столбцов в матрице?

0

@mjsd

в начале файла прописанны 4 переменые

0

angstrom

А видно 6.
Так как размерность строк различна (после первых двух), то используй вариант от Одиночки.
Первые 2 строки можно считать через ReadLn.

@mjsd

в первых 2 строчках описываются 4 переменные определяющие длину ширину массива и ниже сами числа массивов код нашел помогите разобраться
мне необходимо понять посимвольлное чтение

исходник"procedure TForm4.LoadLevel(Number: Integer);
var LevelName, s : String;
sl : TStringList;
i : integer;
j: Integer;
begin
if Number >= maxlev then Exit;
LevelName := 'lev'+IntToStr(Number)+'.txt';
sl := TStringList.Create;
try
sl.LoadFromFile(LevelName);
except
ShowMessage('Cannot load level file '''+LevelName+'''!');
Exit;
end;
for i := 0 to 8 do begin
s := sl[i];
for j := 1 to 9 do
if s[j] <> '#' then begin
fields[j-1,i].InLevel := true;
fields[j-1,i].Placed := StrToInt(s[j]);
end else begin
fields[j-1,i].InLevel := false; //Поле можно изменять
fields[j-1,i].Placed := -1; //Пустая клетка
end;
end;
Draw;
end;"



что примерно получается еще в программе не проверял(фрагмент)"
procedure TForm4.LoadLevel(Number: Integer);
var

LevelName, s : String;


i,j : integer;
begin

LevelName := opendialog1.;--------------------------
try

if s[i] <> ' ' then begin
while s[i+1]<>' ' then
begin
m:=m*10+strtoint(s[i]);
i:=i+1;
end;
i:=i+1;
while s[i+1]<>' ' then
begin
n:=n*10+strtoint(s[i]);
i:=i+1;
end;
i:=i+1;(2)

while s[i+1]<>' ' then
begin
a:=a*10+strtoint(s[i]);
i:=i+1;
end;
i:=i+1;
while s[i+1]<>' ' then
begin
b:=b*10+strtoint(s[i]);
i:=i+1;
end;
i:=i+1;(2)


for i:= 0 to m do begin
for j:= 0 to a do begin
if s[i] <> ' ' then
stringgrid2.cells[i,j]:=strtoint(s[i]) ;
end;
end;



for i:= 0 to b do begin
for j:= 0 to n do begin
if s[i] <> ' ' then
stringgrid3.cells[i,j]:=strtoint(s[i]) ;
end;
end;


for i:= 0 to m do begin
for j:= 0 to n do begin
if s[i] <> ' ' then
begin
if s[i] = '1' then paintbox1.canvas.rectangle();
if s[i] = '2' then paintbox1.canvas.rectangle();
end;

end;
end;
"

0

angstrom

Видно что 6х5 и 5х5, а с буквами что делать?

@mjsd

m n a b переменные в которых они храняться выносил во время редактирования
t:=t+inttostr(m+1)+'m n '+inttostr(n+1);

0

angstrom

Если ты сам создавал этот файл, то создан он, скажем так, - неудачно.

Одиночка

Если тебе нужно 2 массива такого типа считать: убери эти символы из строк, в которых задаются размерности массивов. Если тебе не нужна морока чтобы их потом удалять из строки при чтении? Потом можно записать так:
А тот код из какой-то другой оперы и вряд-ли тебе поможет.

0

@egorprog

народ, а подскажите как посимвольно считать текст, тоесть у меня дано например стихотворение ммне нужно считать строчку разбить её посимвольно переставить всё в нужном порядке и вставить в другой файл (как вставлять я знаю), только вот как разбить строчку по символам и потом взять следующую строку?

0