Вопрос № 103527: Привет Всем!Уважаемые эксперты научите меня пожалуйста строить графики по таблице,допустим в одной колонке X,в другой Y и ещё какой лучше всего посоветуете для построения компонент(какой для 2-х мерных а какой для 3-х мерных)...Вопрос № 103547: Здравствуйте уважаемые эксперты! Помогите где можно скачать или приобрести Delphi 5, 6, 7 любую версию. Спасибо. ...Вопрос № 103564:
здравствуйте, уважаемые эксперты. Проблема такая: написал программу которая читает xml файлы с использованием парсера msxml. На компьютере на котором писал программу все работает, но при переносе программы на др. компьютер парсер ругается на читаемый...Вопрос № 103596: подскажите пжлста, как в Delphi записать в файл мою запись?...Вопрос № 103613: Задача.
1) Есть dll ка в которой есть форма
2) Есть приложения, которые могут ее вызывать, их может быть несколько.
как в Dllке на этой форме отобразить иконку вызвавшего ее приложения, исключая передачу иконки как параметр.<br...Вопрос № 103623: Я знаю что в Delphi (в редакторе кода) есть шаблоны для быстрой вставки кода (например: if then else), но как пользоваться этим увы не знаю. Подскажите пожалуста....
Вопрос № 103.527
Привет Всем!Уважаемые эксперты научите меня пожалуйста строить графики по таблице,допустим в одной колонке X,в другой Y и ещё какой лучше всего посоветуете для построения компонент(какой для 2-х мерных а какой для 3-х мерных)
Отправлен: 27.09.2007, 08:19
Вопрос задал: Gaz (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Ответ отправил: Narsereg (статус: 1-ый класс)
Ответ отправлен: 27.09.2007, 09:40 Оценка за ответ: 5 Комментарий оценки: Спасибо за ссылку
Отвечает: Владик
Здравствуйте, Gaz!
Извините за простоту. Но для этого надо пойти в магазин и купить диск с Delphi. Я бы Вам с удовольствием помог и переслал бы все через нэт, но ксажелению не обладаю скоростным доступом
Ответ отправил: Владик (статус: 1-ый класс)
Ответ отправлен: 27.09.2007, 13:54 Оценка за ответ: 2
Отвечает: Лукьянчиков Дмитрий Сергеевич
Здравствуйте, Gaz!
Для 2-х мерного:
for i:=0 to 98 do
begin
form1.Canvas.MoveTo(x[i],y[i]);
form1.Canvas.LineTo(x[i+1]),y[i+1]);
end;
--------- Программирование - вещь полезная!
Ответ отправил: Лукьянчиков Дмитрий Сергеевич (статус: Заблокирован)
Ответ отправлен: 27.09.2007, 21:43 Оценка за ответ: 3 Комментарий оценки: Ну и где тут компонент для построения графика да и таблицу не вижу
Вопрос № 103.547
Здравствуйте уважаемые эксперты! Помогите где можно скачать или приобрести Delphi 5, 6, 7 любую версию. Спасибо.
Ответ отправил: Drbear (статус: 2-ой класс)
Ответ отправлен: 27.09.2007, 11:16
Отвечает: sir henry
Здравствуйте, Kharitonov Sergei!
Delphi 5 и 6 уже навряд ли где-то можно приобрести, разве что случайно у кого-то завалялась коробочка, типа возврат от покупателя был. Но учтите, что такие вещи поставляются только под заказ и ни одна фирма авансом их никогда не покупает, поэтому шансы практически равны нулю.
А вот Delphi 7 еще пока можно купить. Например здесь:
http://www.ibase.ru/prices/borland.htm
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 27.09.2007, 11:20
Отвечает: Delph
Здравствуйте, Kharitonov Sergei!
Borland Delphi любой версии - лицензионный продукт, поэтому никто из экспертов портала НЕ ИМЕЕТ ПРАВА давать Вам ссылки, где можно достать Delphi бесплатно. Думаю, легально скачать эту среду вообще невозможно, а хакерские сайты с поломанными версиями... Искать их здесь бесполезно. Сама же компания Borland скорее всего продвигает последние версии среды (не помню их номера), так что в настоящее время Delphi 7 официально приобрести ещё сложнее.
--------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.
Ответ отправил: Delph (статус: 10-ый класс)
Ответ отправлен: 27.09.2007, 11:24
Отвечает: Лукьянчиков Дмитрий Сергеевич !!! Здравствуйте, Kharitonov Sergei!
здравствуйте, уважаемые эксперты. Проблема такая: написал программу которая читает xml файлы с использованием парсера msxml. На компьютере на котором писал программу все работает, но при переносе программы на др. компьютер парсер ругается на читаемый xml файл. Выяснил что это связано с кодировкой. Почему то на другом компьютере вместо русских букв из файла читается абракадабра. Как это исправить?
Отправлен: 27.09.2007, 12:32
Вопрос задал: Radik (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 9)
Отвечает: Narsereg
Здравствуйте, Radik!
Скорее всего нужно в XML вставить
<?xml version="1.0" encoding="windows-1251"?>
Ответ отправил: Narsereg (статус: 1-ый класс)
Ответ отправлен: 27.09.2007, 12:54
Вопрос № 103.596
подскажите пжлста, как в Delphi записать в файл мою запись?
Отправлен: 27.09.2007, 17:01
Вопрос задал: Evgeni_s (статус: Посетитель)
Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 11)
Отвечает: kopfschwarz
Здравствуйте, Evgeni_s!
Объявить какую-либо переменную как file of XXX, где XXX - тип вашей записи. В теле программы последовательно вызываете, например:
type recor = record x,y:real; end;
var
r: recor;
f: file of recor;
assignfile(f,'file.rec'); //file.rec - имя файла
rewrite(f);
write(f,r);
closefile(f);
--------- Please, don't say you're sorry & Express yourself, don't repress yourself!
Ответ отправил: kopfschwarz (статус: Студент)
Ответ отправлен: 27.09.2007, 17:13
Отвечает: Drbear
Здравствуйте, Evgeni_s!
- BlockWrite(var f: File; var buf; count: Integer [;var Result: Integer);
записывает count хзаписей из buf в нетипизированный файл, связанный с файловой переменной f.
Если задан параметр Result то в него возвращается число произведенных записей
- FileWrite(Handle: Integer; const Buffer; count: Integer): Integer;
записывает в файл, указанный дескриптором Handle из Buffer count байт, возвращает число записанных байт. для получения Handle ищите FileCreate & FileOpen
- Write(var f; <список выражений>);
записывает значения <список выражений> в файл, связанный с файловой переменной f
- WriteIn(var f: Text; <список выражений>);
записывает значения <список выражений> и заносит маркер конца строки в текстовый файл, связанный с файловой переменной f
подробнее смотрите в справке Delphi
Ответ отправил: Drbear (статус: 2-ой класс)
Ответ отправлен: 27.09.2007, 17:16
Отвечает: Лукьянчиков Дмитрий Сергеевич
Здравствуйте, Evgeni_s!
Построчная запись:
str - массив строк.
assignfile(f2,'abc2.txt');
rewrite(f2); // открываем файл на запись
for j:=1 to fin do
begin
writeln(f2,str[j]);
end;
Отвечает: Владик
Здравствуйте, Evgeni_s!
функци по созданию или добавдению в файл саписи
function AppendOrWriteTextToFile(FileName : TFilename; WriteText : string): boolean;
var
f : Textfile;
begin
Result := False;
AssignFile(f, FileName);
try
if FileExists(FileName) = False then
Rewrite(f)
else
begin
Append(f);
end;
Writeln(f, WriteText);
Result := True;
finally
CloseFile(f);
end;
end;
вызов функции
AppendOrWriteTextToFile('txt.txt', stroka);
Ответ отправил: Владик (статус: 1-ый класс)
Ответ отправлен: 28.09.2007, 07:48
Вопрос № 103.613
Задача.
1) Есть dll ка в которой есть форма
2) Есть приложения, которые могут ее вызывать, их может быть несколько.
как в Dllке на этой форме отобразить иконку вызвавшего ее приложения, исключая передачу иконки как параметр.
Отправлен: 27.09.2007, 18:26
Вопрос задал: Кэр Лаэда (статус: Практикант)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Drbear
Здравствуйте, Кэр Лаэда!
///////////////////
Для получения дескриптора иконки можно использовать вызов API ExtractIcon, затем назначить (assign) ее TImage.
//////////////////
uses ShellApi;
procedure icon();
var
IconIndex: word;
h: hIcon;
begin
IconIndex := 0;
h := ExtractAssociatedIcon(hInstance,
'C:FILE.EXE', IconINdex);
procedure icon();
var
ic: TIcon;
i, count: integer;
w: integer;
begin
if OpenDialog1.Execute = false then
Exit;
Form1.Canvas.FillRect(Form1.Canvas.ClipRect);
count := ExtractIcon(Application.Handle,
PChar(OpenDialog1.FileName), -1);
ic := TIcon.Create;
w := Form1.Width div 32;
for i := 0 to count - 1 do
begin
ic.Handle := ExtractIcon(Application.Handle,
PChar(OpenDialog1.FileName), i);
Form1.Canvas.Draw(32 * (i mod w), 32 * (i div w), ic);
end;
ic.Destroy;
end;1
/////////////////
procedure icon();
var
Icon: TIcon;
FileInfo: SHFILEINFO;
begin
Icon := TIcon.Create;
try
SHGetFileInfo(PChar('Filename.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
icon.Handle := FileInfo.hIcon;
DestroyIcon(FileInfo.hIcon);
icon.SaveToFile('IconFromExe.ico');
Application.Icon := icon;
finally
Icon.Free;
end;
end;
///////////////////
по моему хватит, если есть ошибки извините
Ответ отправил: Drbear (статус: 2-ой класс)
Ответ отправлен: 27.09.2007, 18:37 Оценка за ответ: 5 Комментарий оценки: спасибо, не проверял работает ли, но лихо... за 6 минут такой код наваять )))
Вопрос № 103.623
Я знаю что в Delphi (в редакторе кода) есть шаблоны для быстрой вставки кода (например: if then else), но как пользоваться этим увы не знаю. Подскажите пожалуста.
Я так понимаю, что Вас интересует, как быстро вставить в код нужный шаблон.
Так вот для этого Вам вполне достаточно воспользоваться такой комбинацией клавиш как <Ctrl>+<J>, тем самым в окне редактора кода появится меню с выбором соответствующих заготовок.
Вам остается только выбрать нужную конструкцию и нажать клавишу и в код вставятся соответствующие операторы.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 27.09.2007, 23:12 Оценка за ответ: 4 Комментарий оценки: Спасибо! Способ работает, но считаю что необходимо дополнить ответ, Если ввести имя шаблона (можно посмотреть в "Свойства редактора -> Опции исходника -> Шаблоны кода"),
а затем нажать комбинацию клавиш >Ctrl<+>J<, то нужный шаблон вставится автоматически в том месте где было написано имя. (Нашел методом "тыка" после вашей подсказки)
Отвечает: Igor_
Здравствуйте, Mr_pik_gammi!
Можно немного дополнить ответ Gh0stik.
Настроить содержимое этого меню можно, выбрав в Delphi меню Tools -> Editor Options -> Code Insight -> Code templates.
Ответ отправил: Igor_ (статус: 4-ый класс)
Ответ отправлен: 28.09.2007, 09:57 Оценка за ответ: 5 Комментарий оценки: Спасибо, С настройкой содержимого разобрался.
