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

Может тебе простого Memo.Lines.SaveToFile('test.txt') хватит, не забивай себе мозги структурами раз так тяжело? =)

 

неа) ет просто тест ’сохранитса ли структура?’
а вот што нада сохранить:

Code:

  TForumConf  = packed record
    Name      : string[255];
    LogName   : string[255];
    LogPass   : string[255];
    LogURL    : string[255];
    SendURL   : string[255];
    PostDataName  : string[255];
    PostData  : PForumTypeConf;
  end;
  TAForumConf = array of TForumConf;  //<< ето нада сохранить) размер масива впишу в первіе 4 байта файлу
  PForumConf  = ^TForumConf;

ет только часть)

 

еврика мля!))) уже ложилса спать и вспомний что нужно передавать не указатель а то на шо он указевает!!

 

Отправляю в пост запросе символ + и он фильтруется и превращается в пробел.
Как мне его отправить, чтоб не фильтровался?

Вот например

Code:

uses
.., IdHttp;
var
http :TIdHttp;
a    :TStringList;
begin
a:=TStringList.Create;
http:=TIdHTTP.Create(nil);
a.Add('param=1');
a.Add('param1=2);
a.Add('param3=+);
http.Post('mysite.com',a);
a.clear;
end;
http.free;

Пробовал подставить в место плюса:
&#043
#043
%2B

Не помогло.

 

так %2B

 

Помогите с задачкой на паскале.

Подсчитать сумму натуральных чисел, принадлежащих интервалу [а, b], в которых четные и нечетные цифры чередуются

 

Как программно очистить файл .txt
Без всяких Memo..
xDD
Забыл как

 

решение в одну строчку:

PHP:

 with TFileStream.Create('1.txt', fmCreate) do Free;


PS Подходит для любого файла

 

Чтото я не совсем понял,извените если что

 

Программное очищение файла
А что тут может быть непонятно?
Вместо '1.txt' подставлеяшь свое название файла
В uses прописываешь Classes

Или тебе на паскале надо?

 

Подскажите пожалуйста, как перевести в делфи ASCII в hex? Т.е. ввожу в эдит текст, а оно мне переводит его в hex-кодировку.

 

moodoone:

Code:

function StringToHex(S: String): String;
var I: Integer;
begin
  Result:= '';
  for I := 1 to length (S) do
    Result:= Result+IntToHex(ord(S[i]),2);
end;

P.S. В Edit ты вводишь не ASCII, а String.

 

глупинький у меня вопрос, как не кидая компонентов на форму создать их в своей программе?

 

В uses прописать, и пользоваться конструктором.

 

кто-нибудь подскажите) или примерчик просто =

 

Например так:

PHP:

var
  b: TButton;
begin
  b := TButton.Create(nil);
  b.parent := self;
end;

 

ругается http://floomby.ru/content/zDuYcLlxgE/

 

Надо же прописывать в uses где описан данный компонент. В данном случае - StdCtrls.
На будущее делай так: кидаешь компонент, сохранаешь все, удаляешь компонент, в uses остаются подключенные модули.
И еще, если не собираешься сам освобождать компонет то передавай в конструктор Self, тогда при закрытии формы компонент будет уничтожен автоматически. Если сам - то передавай nil как показано выше, но вызывай Free для компонента сам.

 

да....мне бы лучше литературу по этому делу посоветовать...

 

Литература по этому делу - интернет.
Хотя вообще, советую тебе прочитать книгу Библия Delphi (М. Фленов). Будет полезно тебе.