 |
|
23.04.2010, 22:57
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
Сообщение от JnK
1. Лучше массив или StringList, по простой причине не будет отображаться значит скорость больше, но если все же надо отображать, то есть команды вроде как увеличивывают скорость.
угу, подгружаешь файлик в гиг, он себе комфортно размещается в оперативке попутно убив комп.. 
|
|
|
24.04.2010, 00:44
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от [stranger]
угу, подгружаешь файлик в гиг, он себе комфортно размещается в оперативке попутно убив комп.. Ну 1 лям записей это явно не 1 гиг , Но если уж на то пошло, то как ни крути, если тебе хочется загрузить в программу, будь то мемо, массив или хз что, в оперативе файл будет висеть условно. Хотя винда распределит ресурсы  надеюсь.
А насчет убивать комп, зависит от кривизны рук кодера. Можно и одной строкой загнуть комп до состояния - не стояния..
P.s. Кто мешает тебе программно порезать файлить и подгружать частями?
Последний раз редактировалось JnK; 24.04.2010 в 00:47..
|
|
|
|
24.04.2010, 01:06
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
Сообщение от JnK
Но если уж на то пошло, то как ни крути, если тебе хочется загрузить в программу, будь то мемо, массив или хз что, в оперативе файл будет висеть условно. Хотя винда распределит ресурсы надеюсь. да кто тебя заставляет читать весь файл сразу??? читай себе по мере необходимости.. но никакими TStringList у тебя этого не выйдет.. так что если не уверен - не советуй!
|
|
|
|
24.04.2010, 02:19
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Сообщение от Serbies
к предыдущему моему сообщению: astonilya ссори не так прочел сообщение
EndLeSSDre@M
randomize; for i:=1 to 20 do mmo1.Text := mmo1.Text+' '+chr(Random(80)+48); - будет генерировать латинские буквы во всех регистрах + цифры
(ссори за неоформленность)
Что-то не знал про функцию chr...спасибо, интересная оказалась
Сейчас мне понадобилось генерить только буквы, и большие и маленькие, накидал функцию может кому пригодится. На вход функции подается количество нужных символов а возвращается строка:
PHP код:
function RandWord(count : integer): string;
var
I: Integer;
begin
result := '';
for I := 0 to count - 1 do
case random(2) of
0: result := result + chr(Random(26)+65);
1: result := result + chr(Random(26)+97);
end;
end;
Последний раз редактировалось GhostOnline; 24.04.2010 в 05:12..
|
|
|
|
24.04.2010, 02:21
|
|
Познающий
Регистрация: 04.11.2007
Сообщений: 51
С нами:
9746190
Репутация:
6
|
|
Отправляю сообщение на форуме.
Вместо русского текста (каторый в memo3.text) отправляются иероглифы :
Уважаемый пользователь.
Send.Add('username=~Maya~');
Send.Add('message='+memo3.Text);
Send.Add('attach_sig=on');
Send.Add('folder=inbox');
Send.Add('mode=post');
Send.Add('post=%CE%F2%EF%F0%E0%E2%E8%F2%FC');
ReplyData.Position:=0;
idhttp1.Post('/forum/privmsg.php', Send,ReplyData );
Подскажите плз
Последний раз редактировалось InfectedM; 24.04.2010 в 02:31..
|
|
|
|
24.04.2010, 02:41
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
кодировка
|
|
|
|
24.04.2010, 02:51
|
|
Познающий
Регистрация: 04.11.2007
Сообщений: 51
С нами:
9746190
Репутация:
6
|
|
На сайте стоит charset=windows-1251
в проге стоит
IdHTTP1.Request.AcceptCharSet:='windows-1251';
IdHTTP1.Request.CharSet:='windows-1251';
utf8encode пробовал - не помогло
что еще нужно сделать?
Последний раз редактировалось InfectedM; 24.04.2010 в 03:00..
|
|
|
|
24.04.2010, 07:25
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
С нами:
9365528
Репутация:
425
|
|
Сообщение от InfectedM
На сайте стоит charset=windows-1251
в проге стоит
IdHTTP1.Request.AcceptCharSet:='windows-1251';
IdHTTP1.Request.CharSet:='windows-1251';
utf8encode пробовал - не помогло
что еще нужно сделать?
utf8ToAnsi();
ansiToUtf8();
|
|
|
|
24.04.2010, 08:26
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от [stranger]
да кто тебя заставляет читать весь файл сразу??? читай себе по мере необходимости.. но никакими TStringList у тебя этого не выйдет.. так что если не уверен - не советуй!
1. Немного от темы ушел, разговор был о 1 000 000 записей, а не 1 Гб . с чем TSrtingList справляется (проверял). (ограничение 268435455 строк), что бы программа не зависала, лучше запихнуть в поток
2. Критика хорошо, но может тогда подскажешь свой метод решения его проблемы?
Последний раз редактировалось JnK; 24.04.2010 в 08:29..
|
|
|
|
24.04.2010, 13:46
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
Код:
hF := CreateFile(PChar(filename), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
и потом читаешь себе файл через
Код:
ReadFile(hF, buff, 4096, rb, nil);
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.jpg?2097552){kind=avatar}
![Аватар для [stranger]](/avatars/avatar113122.jpg?2098568){kind=avatar}
![Аватар для [stranger]](/avatars/avatar113122.jpg?2098663){kind=avatar}
![Аватар для [stranger]](/avatars/avatar113122.jpg?2099127){kind=avatar}
Похожие темы
Линейный вид
