Delphi Support

А никто за тебя разбираться и не будет. А код за тебя напишут только жополизы. Дали толчёк - хочешь разбирайся, хочешь нет.

 

тогда я не вижу логики в выше сказанных словах, мол я должен объяснить!

 

Перечитай его вопрос 100 раз.

 

эм, он попросил тыкнуть! я тыкнул, что тебе не нравится?

 

Помогите сделать пожалуйста рег ПСН
Разобраться с запросом не могу , вот код
procedure TForm2.Button1Click(Sender: TObject);
begin
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
begin
Mails.Clear;
Mails.LoadFromFile(OpenDialog1.FileName);
Label2.Caption:=inttostr(Mails.Count);
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
if mails.Count<>0 then
begin
Label4.Caption:='0';
Label6.Caption:='0';
for i := 0 to mails.Count-1 do
begin
try
Link:=idHTTP1.Get(https://account.sonyentertainmentnetwork.com/login.action');
except
end;
if Pos('"valid":false}',Link)<>0 then
begin
Memo1.Lines.Add('Good:'+Mails);
Label4.Caption:=IntToStr(StrToInt(Label4.Caption)+1);
end
else
begin
Memo1.Lines.Add('Bad:'+Mails);
Label6.Caption:=IntToStr(StrToInt(Label6.Caption)+1);
end;
end;
end
else
ShowMessage('Вы не загрузили емейлы');
end;

procedure TForm2.Label1Click(Sender: TObject);
begin
Var
Mails:TStringList;
Link:String;
i:Integer;
end;

end.

 

Все хорошо , спасибо добрым людям , помогли!

 

В чем проблема? помогите)

 

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

 

Потому что в uses он прописан, но у тебя он не добавлен в компилятор либо не положен рядом с исходником.

 

ну исходники же :D
люди дают такие названия компонентам и классам, что пол литра не помогут.

 

Ну тут он ничего не придумывал. Если убрать T, то можно увидить стандартный класс Delphi, а приставка s просто говорит, что человек пользуется скинами. http://docwiki.embarcadero.com/Libraries/XE2/en/Vcl.Samples.Gauges.TGauge

 

я не именно этот имел в виду. просто обобщил =!

 

Так как это исправить?) http://youhack.top/showthread.php?t=456068 брал этот исходник