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

KaZ@NoVa, беда в том, что не дает скомпилировать =/ пишет, что нет такого "S_ONLINE"

 

а если попробовать скажем ставить не S_ONLINE, а вместо него поставить 1,0, или что там соответствует S_ONLINE

 

S_ONLINE ето констатна.
нажми Ctrl, наведи на "S_ONLINE" в проекте, кликни, и увидешь как и где она обьявлена

 

скинь сорсы трояна, я посмотрю, что можно сделать//

 

Code:

program baran;
const n=2;
type ozera = record
name: string[10];
glybina: integer;
razmer: integer;
strana: string[10];
end;
var a:array [1..n] of ozera;
c,d,i, p: integer;  names,stranas: string;
t:text;
glybinas,razmers: integer;
begin
for i:= 1 to n do
begin
writeln('ozero  ',i);
ReadLn(a[i].name);
ReadLn(a[i].glybina);
ReadLn(a[i].razmer);
ReadLn(a[i].strana);
end;
for i:= 1 to n do
 begin
 Write(a[i].name,' ',a[i].glybina,' ',a[i].razmer,' ',a[i].strana);
WriteLn;
 end;
For p:=n downto 1 do
for i:= 1 to n-1 do
begin
if a[i].name>a[i+1].name then
 begin
 names:= a[i].name;
 a[i].name:= a[i+1].name;
 a[i+1].name:= names;
 glybinas:= a[i].glybina;
 a[i].glybina:= a[i+1].glybina;
 a[i+1].glybina:= glybinas;
 razmers:= a[i].razmer;
 a[i].razmer:= a[i+1].razmer;
 a[i+1].razmer:= razmers;
 stranas:= a[i].strana;
 a[i].strana:= a[i+1].strana;
 a[i+1].strana:= stranas;
 end;
 end;
c:=a[1].glybina;
d:=a[2].razmer;
for i:=1 to n do begin
If a[i].glybina>c

then c:=a[i].glybina;
if a[i].razmer>d
then d:=a[i].razmer;
end;

assign (t,'output.txt');
 rewrite(t);

 for i:= 1 to n do
 begin
 Writeln(t,a[i].name,a[i].glybina,a[i].razmer,a[i].strana);
 end;
{writeln(t,c);
writeln(t, d ) ;}
close(t);
reset(t) ;


for i:=1 to n do
begin
read(t,a[i].name,a[i].glybina,a[i].razmer,a[i].strana);
writeln(a[i].name,' ',a[i].glybina,' ',a[i].razmer,' ',a[i].strana);
end;

readln(t,c) ;
writeln('samoe glybokoe - ',c) ;
readln(t, d );

writeln('samoe bolbwoe- ', d );

 close(t);
 ReadLn;
 end.

косяка в сортировке нету
косяк именно в считывании данных с файла


Задание:
В файле хранятся данные о членах некоторого коллектива: фамилия, имя (как мужского, так и женского пола), год рождения, телефон. Среди представленных персон немало однофамильцев, персон одного года рождения, с одинаковым именем и т.д. Упорядочить список по невозрастанию количества однофамильцев. Предусмотреть вывод информации, например, для всех Ивановых.

 

Есть некая переменная и мне нужно сравнить ее с несколькими значениями.
If a='' Then Begin...
Так очень муторно писать,да и не очень хорошо влияет на код. Мне нужен альтернаивтный вариант типа case of

 

c

...

 

Я же говорю, что не пашед. Переменная типа string .

 

а ты в одинарных кавычках её записал ?

 

case только для однобайтовых величин...

Делай вместо If a='' Then Begin...

if a <> '' then exit;

 

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

 

..можно найти файл с конфигурацие рабочего стола( я хз как он называется), и переписывать его. способ зверский, но рабочий 100%..
посмотри тут:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer...
и тут
http://www.delphikingdom.com/asp/viewitem.asp?catalo... (скачайте архив примера DskIcLive.zip)

 

Не получается закинуть файл на фтп! Проблемное место в коде отмечено!
Delphi говорит: "Incompatible types: 'string' and 'PAnsiChar' "
Помогите!

Code:

uses
  Windows, Messages, SysUtils, Variants, Classes,   Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, wininet, Mask, ComCtrls;

var
 conn_param,inet_open : hinternet;
 AboutPC, ftpfilename, filename:pchar;
 port: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
    Port:=21;
    AboutPC:=Pchar('PC');
    filename:='C:\Info_.txt';
    ftpfilename:='/test/Info_'+AboutPC+'.txt'; // вот здесь он ругается!
    inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
    conn_param := internetconnect(inet_open,'ftp.ru',port,'Name','Pass',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
    sleep(100);
    ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
    internetclosehandle(conn_param);
    internetclosehandle(inet_open) ;
    if true then
    showmessage('Good');
end;
end.
 

 

pchar - это указатель и ты должен выделить память под данные.
так что в твоем случае быстрее будет юзать string а там гед нужно конвертить в pchar
типа pchar(переменная_типа_стринг)

 

slesh
Спасибо, а примерный код можешь скинуть?

 

Задача:
есть memo и текст в нем нужно каждые 15 сек переносить в edit строчку из memo (сначало первую, потом вторую, потом третью и т.д.)
Меня интересует сам процесс перенесения строчек из memo в edit.
Плиз подскажите как это сделать?

 

1) ну чтобы переносить каждые 15 секунд то юзай таймер
можешь компонентом, а можешь апишкой - settimer
2) ты можешь сразу закинуть в edit всё содержимое memo
edit1.text := memo1.text;
или отдельную строку
edit1.text := memo1.Lines.Strings[x]
где X - номер строки
P.S. нумерация строк идет он 0 и до memo1.Lines.Count-1
т.е. можешь просто в цикле пробегаться по строкам

 

Как выделить память для PChar?

 

Code:

var
 
 buf:pchar;
....
size:=1000; 1000 байт
GetMem(Buf,Size);

....

FreeMem(Buf);

 

еще способ

Code:

var
s:array[0..200] of char
s2:pchar
begin
s2=@s;
end;