В чём ошибка при написании программы?

[snake91135]

Пишу программу в Delphi не могу понять в чем ошибка и как закончить программу

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

sMemo1.Text:=IdHttp1.Get('http://ma11.3dn.ru/update/versions.sw'); // ошибка здесь
sMemo2.Lines.LoadFromFile('version.sw');

If sMemo1.Text>sMemo2.Text then begin // как здесь заставить качать обновление из http://ma11.3dn.ru/update/? в самом низу вроде бы есть функция...

end

else

begin

 ShellExecute(h, 'open', PChar(ExtractFilePath(Application.ExeName)+'Counter-Strike Source.exe'), nil, nil, SW_SHOW);

end.

 function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
PChar(fileURL),nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;

[veniside]

У тебя ошибка везде. Выдрал кусок незвестно откуда, влепил в середину модуля, компилируй, Дельфи!

[snake91135]

Да, это не одна ошибка, подскажи пожалуйста, как их исправить? Почему sMemo1 не катит?

Я пытался сделать как здесь http://s-talker.com/archive/index.php/t-1236.html

[veniside]

> Почему sMemo1 не катит?

А почему, если в мопед воткнуть двигатель от танка, он тоже не покатит?

Потому, что верхний кусок модуля, вероятно, твой, а нижний, очевидно, чужой. Ну нет у тебя sMemo1, и Дельфи за тебя его не объявит.

Поступи так: выдай нижний кусок кода за твои наработки, запости в "помощь студентам" и объясни, чё ты хочешь. Может, кто и поведётся )

[snake91135]

при
var
sMemo1, sMemo2, Form1: TForm1;

ошибка там же, что я не так делаю?

[vovk]

Сообщение от snake91135

при
var
sMemo1, sMemo2, Form1: TForm1;

ошибка там же, что я не так делаю?

Класс)))

Для начала переименойте ваши memo1 и memo2 в smemo1 и соответственно smemo2. Кликните на объект на форме и в объект инспекторе измените значение напротив name
а это
var
sMemo1, sMemo2, Form1: TForm1; уберите немедленно пока никто не видит))

[snake91135]

сделал, их названия на форме изменились, но ошибка там же( Declaration expected but identifier 'sMemo1' found

[vovk]

Дак понятно, в теле какой процедуры или функции это у вас происходит?
Вот вот ни в какой,
Даа похоже вы вообще не понимаете как и что происходит в коде
судя по всему это должно происходить по нажатию кнопки, на форме даблклик по кнопке и пишите туда действия по загрузке данных из файла, и получения данных с инета.
Модуль должен заканчиватся end. эндом с точкой.. и вообще..

// как здесь заставить качать обновление из http://ma11.3dn.ru/update/? в самом низу вроде бы есть функция...

вызов функции туда и надо писать.
В общем начали бы вы с изучения ID сначала, а потом как пару примеров из учебника напишите, и поймёте от куда ноги растут брались чтото делать.