Итого 38400
Ну и как спрашивается подсчитать такое количество?
Просто сдать 16 страниц 30 шрифтом?
нееее...
вот вам программа, которая в любом текстовом файле(*.txt; *.doc; *.htm; *.html;) подсчитает количество символов
unit strlength3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TLength = class(TForm)
OpenDialog1: TOpenDialog;
Open: TLabeledEdit;
Count: TButton;
Result: TLabeledEdit;
Find: TButton;
procedure FindClick(Sender: TObject);
procedure CountClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Length: TLength;
st,j:string;
strtest:file of byte;
i,n:longint;
a:byte;
implementation
{$R *.dfm}
procedure TLength.FindClick(Sender: TObject);
begin
OpenDialog1.Execute;
Open.Text:=OpenDialog1.Filename;
end;
procedure TLength.CountClick(Sender: TObject);
begin
if Open.Text='' then Result.Text:='Find the file' else begin
n:=0;
assignfile(strtest,Open.Text);
if fileexists(Open.Text) then begin
reset(strtest);
for i:=1 to filesize(strtest) do begin
read(strtest,a);
if (a = 13)or(a = 10) then continue
else n:=n+1;
end;
j:=inttostr(n);
Result.Text:=j;
end else Result.Text:='Wrong path';
end;
end;
end.
Дельфи 7
Если нужен скомпилированный экзе - 253969361
или http://thearhar.tulp...lengthfinal.rar
, потому что
Ошибка загрузки. У Вас нет прав для загрузки файла с таким расширением.
P.S. теКстовом файле)
