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

как узнать на какой позиции в поле мемо находится курсор(номер строки и номер символа)?.

 

Memo.SelStart - Символ
Memo.Lines.Capacity - Строка

Вроде так...

 

бред!
Memo.Lines.Capacity - общее кол-во строк
Memo.SelStart - позиция относительно начала текста

Memo1.CaretPos.X - Символ
Memo1.CaretPos.Y - Строка

 

помогите с заданием, плиз(на паскале)

Распечaтать анкетные данные студентов, получивших в послeднюю сессию оцeнки 2 и 3. (число учеников (n)>=10).

вот нашел очень похожую:
помогите переделать под мое задание

Известен набор продуктов: хлеб, масло, сыр, молоко, имеющихся в ассортименте магазинов. В 3 магазина поставлены отдельные виды этих продуктов. Требуется построить множества А, В, С, которые содержат соответственно:
• продукты, имеющиеся одновременно во всех магазинах;
• продукты, имеющиеся, по крайней мере, в одном из магазинов;
• продукты, которых нет ни в одном из магазинов.

PHP:

Const
N=3;
Type
Product=(bread,butter,cheese,milk); {продукты  }
Assort=set of product; {ассортимент продуктов  }
Shop=array[1..n] of assort; {наличие продуктов в магазинах  }

Var
    M1:shop;
    X: Product;
A,b,c,xm1: assort;
I,j,v,iw:integer;
BEGIN
For I:=1 to n do
    Begin
        Xm1:=[];
        Writeln(‘введите номера продуктов ‘,I:2, ‘-го магазина=‘);
        Repeat
            Read(iw);
            Case iw of
                1:x:=bread;
                2:x:=butter;
                3:x:=cheese ;
                4:x:= milk;
            else
                write(‘номера продуктов 1..4’);
            end;  {case}
            xm1:=xm1+[x];   {наличие продуктов в одном магазине  }
        until eoln;
m1[1]:=xm1
end;     {конец цикла по магазинам }
{получение множеств А,В,С  }
 A:=m1[1];
B:=[];
For I:=1 to 3 do
Begin
A:=A*m1[1]; ];{одновременно во всех  } 
B:=B+ m1[1{хотя бы в одном  }
 C:=[ bread.. milk]-B;  {нет ни в одном  }
End;
For I:=1 to 3 do
Begin
        Case i of
            1: Writeln(‘продукты, имеющиеся во всех магазинах ‘);
            2: Writeln(‘ассортимент продуктов ‘);
            3: Writeln(‘продукты, которых нет ни в одном магазине ‘);
        end;
For x:=bread to milk do
        If x in a then
Case x of
                Bread: Write(‘хлеб ‘);
                Butter: Write(‘масло ‘);
                Cheese: Write(‘сыр ‘);
                Milk: Write(‘молоко  ‘);
            end;  {case}
        if I:=1 then a:=b
            else
        a:=c;
        writeln
    end
END.

 

Имеется открытая страница в WebBrowser.
Как достать все ссылки?
Ну допустим занести из в массив. .

 

Delphy формы
какое сво-во у форм отвечает за изменение left и top (нужно сделать так чтобы все формы кроме главной не могли изменяться в размерах)

 

Code:

Uses OleCtrls, SHDocVw, ActiveX;

//функция для получения из HTML кода
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;

//выводим в memo в обработчике события комплейт:

procedure TForm1.Complete_2(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant);
var i,k,j,a,end1,end2,end3: Integer;
s:string;
cod: TstringList;
begin

for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do //Вывод ссылок в мемо
Memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));

cod:=Tstringlist.Create;

WB_GetHTMLCode(Webbrowser1, cod); //загрузка в COD страницы в текстовом виде

end;

Code:

BorderStyle:=bsSingle;

 

Помогите плиз...

Всем привет. Вообщем требуется помощь, предупрежу сразу в этом деле новичок, не могу написать код перемножения, т.е. нужно чтоб при нажатии кнопки button2 программа перемножила данные edit1 и label1 и вывела результат в label2. Буду очень благодарен за помощь.

P.S.: по форуму юзал, похожего не нашел, если плохо искал, то можн ссылку...

 

form1.label2.caption:=inttostr(strtoint(form1.edit1.text)*strtoint(form1.label1.caption));

 

вот как у меня:

 

люди добрые, направте на путь истинный, плиз... что не так в этом коде

 

код правильный
Проверь имена меток. А также входные данные. надо чтобы везде был записаны числа, а не какойто там текст (кроме label14)

 

перепроверил, всё работает, при условии что в label10.caption находится целое число(10,423,55,....), а как сделать чтоб считал и такие числа как 1,54.....вообщем дробные?

 

var
a,s:real;
begin
a := strtofloat(form1.edit1.text);
s := strtofloat(form1.label1.caption);
form1.label2.caption:= floattostr(a*s);
end;

 

Проблема с savedialog.
Как сделать чтобы после выбора куда сохранить файл, формат файла приписывался автоматически?
А то после сохранение у меня все файлы безформатные

 

там в свойствах самого диалога где-то есть, про extension что-то

 

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

 

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

 

задание следующее - дан текстовый файл формата dd.mm t на 365 строк
где dd - день
mm - месяц
t температура

каким образом можно это дело считать и присвоить переменным типа integer ?
подумывал над конвертации цифр из char в integer при помощи вычитания 48 из десятичного значения символов от 1 до 9 , в теории должно было работать но вот на практике не особо . муторно получилось и не сработало >_< смущает именно что дан текстовый файл

 

в Delphi StrToInt, в Pascal Val(str,num,code);