Kak podshitati v faile kolichestvo naprimer simvolov #

← →
Eksell (2005-11-03 16:43) [0]

Privet vsem! Help please! Mojet kto znaet kak mojno podshitati v faile kolichestvo simvolov ("#"), i potom vyvesti v label.caprion = skoliko ih tam? Ocheni nujno. Zaranie spasibo!

← →
Amoeba © (2005-11-03 16:52) [1]

Отображаешь файл в память и далее побайтово проходишься по нему, словно это обычный массив байтов в памяти, и тупо считаешь количество нужных тебе символов.

← →
Eksell (2005-11-03 17:06) [2]

Amoeba, ja voobshem sovsem nedavno nachel izuchati delphi i poka ne vseo poneatno, esli ne trudno daite primer kak eto mojno realizovati.

← →
Digitman © (2005-11-03 17:22) [3]

var
fs: TFileStream;
buf: array[0..4095] of Char;
i, j, len: Integer;
..

j := 0;
fs := TFileStream.Create("myfile.ext", fmRead);
with fs do
try
while Position < (Size - 1) do
begin
len := ReadBuffer(buf, Min(SizeOf(buf), Size - Position - 1));
for i := 0 to len - 1 do
if buf[i] = "#" then
Inc(j)
end;
Label.Caprion := IntToStr(j);
finally
fs.Free;
end;

← →
Jeer © (2005-11-03 17:27) [4]

Digitman © (03.11.05 17:22) [3]

Раздобрел, однако. :)

← →
Digitman © (2005-11-03 17:33) [5]

> Jeer © (03.11.05 17:27) [4]

бывает)

не бери близко к сердцу)

← →
Eksell (2005-11-03 17:49) [6]

Ok. blagodarchik Digitman. Toliko kod ne sovsem pravelen, chota v stroke
" len := ReadBuffer(buf, Min(SizeOf(buf), Size - Position - 1));" ne to. A shto imenno???

← →
Digitman © (2005-11-03 17:53) [7]

> Eksell (03.11.05 17:49) [6]

совесть имей, да ?
мало того, "халява цветет махровым цветом". так еще и с претензиями)

хоть бы сообщение об ошибке компиляции привел что ли) ... код писан "на ходу", ибо тривиален, посему не проверялся

← →
Eksell (2005-11-03 18:18) [8]

Da ladno Digitman..., kakie blin pritenzii, k tebe ih net, spasibo konechno za kod, prosto pomogi razobratsea, ja v delphi novichok. :)
Vot oshibka : Missing Operator or Semicolon, pokazyvaet na "Min(SizeOf(buf)".

← →
PZ (2005-11-03 19:51) [9]

Вот простой работающий пример

procedure TForm1.Button1Click(Sender: TObject); Var F : file of Char; C : Char; I : Integer; begin If OpenDialog1.Execute then AssignFile(F, OpenDialog1.FileName); Reset(F); I := 0; While not EOF(F) do begin Read(F, C); If C = "#" then Inc(I); end; Label1.Caption := IntToStr(I); CloseFile(F); end;

← →
Eksell (2005-11-03 22:07) [10]

Ok, PZ, balishoe te spasibo. Vseo rabotaet.

>Digitman ©

Серёга, а зачем по 4 кило нарезаешь?

>PZ (03.11.05 19:51) [9]

Это самый тормознутый вариант, который можно себе представить.

← →
PZ (2005-11-04 07:43) [12]

Kak podshitati v faile kolichestvo naprimer simvolov # Найти похожие ветки