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

Результат функции может быть массивом? Если да, то как правильно это представить? Пробую так, неполучается

Code:

.
function erwer(erwr:string):array[0..100] of string;
begin
result[0]:='werwr';
end;


begin
showmessage(erwer('dsadas')[0]);
end.

 

функция не может возвращать массив, это ограничение можно обойти если ввести новый тип:
type
ass=array[0..100] of string;
и сделать чтоб функция возвращала его:
function erwer(erwr:string):ass;

 

так как ты делаеш нельзя зато так можно:

Code:

.....

type
    PMy_func_array_result=array[1..100]of string;

var
  Form1: TForm1;

.....


function erwer(erwr:string):pMy_func_array_result;
begin
result[1]:='werwr';
end;

begin
showmessage(erwer('dsadas')[1]);
end;

.....

 

RumShun, KIR@PRO спасибо.

 

Вот есть такой код:
bmp.SaveToFile('C:\Program Files\''Screen.bmp');
помогите его изменить так, чтобы файл был сохранён на раб столе, под именем сколько сейчас время
Например: 13.57.17.bmp

FormatDateTime('hh.nn.ss',now);

 

Как-то так

Code:

uses Registry;
.....
{находим директорию винды}
function GetSystemRoot: String;
var Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', false);
  Result:=reg.ReadString('SystemRoot');
  Reg.free;
end;

{находим имя пользователя}
function GetUN: string;
var
UN : string;
UNLen : Dword;
begin
  UNLen := 255;
  SetLength(UN, UNLen);
  if GetUserName(PChar(UN), UNLen) then
    Result := Copy(UN,1,UNLen - 1);
end;

{используем всё это, чтоб составить путь}
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
str:=copy(GetSystemRoot,1,3)+'Documents and Settings\'+GetUN+'\Рабочий стол\'+FormatDateTime('hh.nn.ss',now)+'.bmp';

bmp.SaveToFile(str);
end;

 

Code:

procedure TMainForm.HomePageRequest(var Message: TMessage);
begin
  URLs.Text := 'C:\index.html';
  FindAddress;
end;

Откроет index.html который лежит в директории C:\
Как сделать так, чтобы открывало файл лежащий рядом с програмой (если место прогаммы, может меняться)?

 

Code:

procedure TMainForm.HomePageRequest(var Message: TMessage);
begin
  URLs.Text := [COLOR=Red]'index.html'[/COLOR];
  FindAddress;
end;

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

 

где её выставлять?

 

подсказали решение

Code:

begin
URLs.Text:=ExtractFilePath(ParamStr(0))+'index.html';
  FindAddress;
end;

 

Интересует программа с исходниками DScan 1.3 автора цикла статей по WinSock некоего Danilа, WEB-сайт: http://www.danil.dp.ua который уже не пашет..

 

Посоветуйте пожайлусто метод загрузки файла из интернета который не использует IE
WinInet использует

 

через сокеты
http://www.codeproject.com/KB/IP/winsockintro02.aspx

 

Что здесь не так?

Code:

for i:=1 to 9 do
FindComponent('bot'+inttostr(i)) as TICQClient).uin:=StrToInt(Options.memo1.Lines.Strings[i]);

пишет ошибку:
[Error] Unit1.pas(242): Statement expected, but expression of type 'TICQClient' found
хотя TICQClient существует

Code:

type
  TMain = class(TForm)
bot1: TICQClient;

 

все проблемма решена...

 

есть RTF-документ, в нем сноски (примечания) вида

Code:

....
ТЕКСТ 1
....
______
1 Примечание

как можно переместить примечание в текст чтобы было так

Code:

....
ТЕКСТ [Примечание]
....

Не оставляйте без внимания пжста!

 

St0nX спасибо но там на C++
я пытался через сокеты на делфях но что то неполучается
http://forum.antichat.ru/showpost.php?p=1140193&postcount=2924

 

t04, как вариант юзать готовую библиотеку регулярных выражений RegExp http://anso.da.ru

 

ZET36 ->
http://citforum.yspu.yar.ru/programming/delphi/sockets-1/
http://citforum.yspu.yar.ru/programming/delphi/sockets-2/

 

Как при помощи компонента DataFile (аналог ini files, только с шифровкой) сохранить весь текст в мемо.
Через dat.WriteStrings(); что-то неполучается =( Если кто может выложите плиз пример именно для мемо, потомушто с едитом все норм