Recent Content by StealthMaster

$myquery = file_get_contents('dump.sql'); $myquery = str_replace("\r\n", ' ', $myquery); $res = mysql_query($myquery); Вот так...

Такой запрос не проходит... Попробовал его на простейшем sql скрипте: CREATE TABLE STUDENTS( N_STUDENTSBOOK INT PRIMARY KEY,...

Всем доброго времени суток! Ситуация следующая: имеется SQL-скрипт с запросами для создания основных таблиц и представлений базы данных....

Есть ли для Delphi7 компоненты для построения графиков помимо TChart? Хочется, чтобы все выглядело покрасивее :)

За количество строк отвечает свойство RowCount smth := StringGrid1.RowCount; По поводу вставки текста в OpenOffice. Подключаешься к...

Что ж так сложно то... Так не проще? procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case Key of...

function LCase(Symbol: Char): Char; begin case Symbol of 'А'..'Я', 'A'..'Z': Result := Chr(Ord(Symbol) + 32); 'Ё':...

TPAXTOP, тебе же написали целых два способа: с циклом while и с циклом for: Хотя, имхо, второй алгоритм (с циклом for) можно немного...

Всем доброго времени суток. Нет ли у кого реализации шифрования текста по алгоритму AES с ключом 128 бит? Желательно с комментариями :rolleyes:

Хватит оффтопа и флуда! PROGRAM FOR_INC; uses CRT; const n = 10; var tmp: real; result: real;...

function CheckNumber(Number: string): boolean; var i: integer; begin Result := false; for i := 1 to length(Number) do case...

Можно в процедуре, где происходит изменение свойства Position у ProgressBar'a сравнивать новое значение с 100. procedure SomeThing; var...

procedure TForm1.bConnectClick(Sender: TObject); begin ICQClient1.Login(); end; procedure TForm1.bSendMessageClick(Sender: TObject);...

function GetIndex(str: string; var Memo: TMemo): integer; var i: integer; begin Result := 0; with Memo do for i := 0 to...

Ну как бы... У тебя объявлена глобальная переменная Edit1 типа TEdit, при этом нужный тебе edit является полем класса TForm1. И использовать его...