Вопрос : Подсчитывать количество рядков

Hi специалисты,

I получают колонку категории и колонку subcategory как это:
What ii
hh
b gg
b ff
b ee
b dd
a cc
a bb
a aa
a

Category SubCategory
a был бы вопрос передаст мне назад отсчет числа возникновений a и b возвращенных в 3-ей колонке?
So я должен иметь отсчет 5 для категории a и 4 для категории B

Thanks. class=

Ответ : Подсчитывать количество рядков

Я угадываю вы вызывает Windows API для того чтобы скопировать архивы или подобно, поэтому вам нужно только PChar и шнуруете типы, и составитель Делфи решит, согласно варианту, правильно добросердечному и правильно варианту API, котор он будет использовать.

С шнуром <2009 :="">= AnsiString Делфи
(P) Чарс = (p) AnsiChar
и все вызванные окна API будут вариантом ANSI, ex:
CopyFile = CopyFileA

С Делфи >=2009
Шнур = WideString
Чарс = WideChar
и все вызванные окна API будут широким вариантом


так, ваше Кодий должно быть сделано для того чтобы составить с всеми вариантами, без играть слишком много с другими типами кроме того что когда вы не имеете выбор

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:

Var cDestino, cOrigem: PChar; sFile, sPath, sDiaSemana: Шнур; iProgBar: Интежер; и; sFile: = «PedItem.db»; cOrigem: = strtopchar (sPath+'\ '+sFile); cDestino: = strtopchar ('C:\Back - up_AcxSir \ '+sDiaSemana+sFile); CopyFile (cOrigem, cDestino, ложные); Заметьте что вы можете преобразовать шнур к PChar с как раз бросанием в aflarin дороги показанном для AnsiString & PAnsiChar. Так вы можете даже вызвать вашу функцию в одной линии CopyFile (PChar (sPath+'\ '+sFile), PChar ('C:\Back - up_AcxSir \ '+sDiaSemana+sFile), ложные);