[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

По словарю разве только.
1. Типа рандом из словаря
2. Рандом на использование 2 слов (например если слово меньше 4 букв)

 

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

 

Ну 1 лям записей это явно не 1 гиг , Но если уж на то пошло, то как ни крути, если тебе хочется загрузить в программу, будь то мемо, массив или хз что, в оперативе файл будет висеть условно. Хотя винда распределит ресурсы надеюсь.
А насчет убивать комп, зависит от кривизны рук кодера. Можно и одной строкой загнуть комп до состояния - не стояния..

P.s. Кто мешает тебе программно порезать файлить и подгружать частями?

 

да кто тебя заставляет читать весь файл сразу??? читай себе по мере необходимости.. но никакими TStringList у тебя этого не выйдет.. так что если не уверен - не советуй!

 

Что-то не знал про функцию 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;


 

Отправляю сообщение на форуме.
Вместо русского текста (каторый в memo3.text) отправляются иероглифы :
Уважаемый пользователь.

Подскажите плз

 

кодировка

 

На сайте стоит charset=windows-1251
в проге стоит
IdHTTP1.Request.AcceptCharSet:='windows-1251';
IdHTTP1.Request.CharSet:='windows-1251';

utf8encode пробовал - не помогло
что еще нужно сделать?

 

utf8ToAnsi();
ansiToUtf8();

 

1. Немного от темы ушел, разговор был о 1 000 000 записей, а не 1 Гб . с чем TSrtingList справляется (проверял). (ограничение 268435455 строк), что бы программа не зависала, лучше запихнуть в поток

2. Критика хорошо, но может тогда подскажешь свой метод решения его проблемы?

 

Code:

  
hF := CreateFile(PChar(filename), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

и потом читаешь себе файл через

Code:

ReadFile(hF, buff, 4096, rb, nil);

 

http://forum.antichat.ru/thread198857.html

 

Кто-нибудь имел дело с базами данных, а именно с компонентами ADO для баз данных MS Access? Помоготе, пожалуйста понять как сделать SQL - запрос.

Вот небольшой отрывок из моего кода. Запрос как я понимаю обрабатывается корректно, потому что результат функции ExecAQL равен 0. Но вот как мне получить обработанные данные запроса? Как их можно просмотреть? Пробовал связать ADOQuery с компонентами обработки баз данных , но безуспешно. Прошу помощи тех, кто имел с этим дело Заранее благодарен.

Code:

ADOQuery.SQL.Add('SELECT Password FROM Users WHERE Users="Some"');
ADOQuery.ExecSQL;

 

не помогло, всеравно иероглифы

 

Delphi - Procedure
значит вот

PHP:

  TForm1 = class(TForm)
 .......
    procedure LoadContactList; //сюда добавил 
 ......

потом сама процедура:

PHP:

procedure LoadContactList;
var
 i,p1,p2,a,p: Integer;
 s: String;
begin
 ...
 Form1.ListBox2.Items.Add(s);
 ...
end;

и обращение к ней

PHP:

Form1.LoadContactList;

Кажется все правильно написал, н опри компиляции ругается на эту строку : procedure LoadContactList;
ошибка: [Error] Unit1.pas(58): Unsatisfied forward or external declaration: 'TForm1.LoadContactList'
Что не так?

 

"потом сама процедура:"
procedure TForm1.LoadContactList

А обращение наоборот можно просто:
LoadContactList(параметры);

 

procedure TForm1.LoadContactList млин точно)
а параметров у меня нету)
Ну вообщем работает занкс)

 

Люди добрые, подскажите что почитать по работе с indy

 

Юзай сокеты, тебе же уже отвечали

 

GhostOnline, не нужны мне пока сокеты