1 (edited by grigorii.ustos 2020-03-24 07:40:47)

Topic: По какой то причине не могу посчитать кол-во строк в cvs файле

Var sl : TStringList;
c:integer;
Begin
sl:=TStringList. Create;
sl. LoadFromFile (OpenDialog. FileName);
c:=sl. Count-1;
ShowMessage(c);
End;

В итоге выводиться - 1 независимо от того сколько строк в cvs файле

2 (edited by sibprogsistem 2020-03-24 08:30:48)

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

а где сам OpenDialog?

var
openDialog:TOpenDialog;
c:integer;
sl:TStringList;
begin
sl:=TStringList. Create;
openDialog:=TOpenDialog.Create(form1);
openDialog.DefaultExt := '.cvs';
openDialog.Filter := 'cvs files|*.cvs';
if (openDialog.Execute) then begin
sl. LoadFromFile (OpenDialog. FileName);
c:=sl. Count-1;
ShowMessage(c);
end;
openDialog.Free;
sl.Free;
end;

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

Добавил, но при этом все равно не работает

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

Так же выводит - 1

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

grigorii.ustos wrote:

Добавил, но при этом все равно не работает

перепроверил, все работает

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

создайте другой csv

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

Побывал но безуспешно

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

попробуйте на этом файле

Post's attachments

Attachment icon Список дел - Список дел.csv 1018 b, 204 downloads since 2020-03-24 

9 (edited by grigorii.ustos 2020-03-24 09:18:11)

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

Заработало, но в каком формате вы сохраняете csv файл в exele чтобы все работало?

Re: По какой то причине не могу посчитать кол-во строк в cvs файле

grigorii.ustos wrote:

Заработало, но в каком формате вы сохраняете csv файл в exele чтобы все работало?

делал из exele