Delphi Support

if Pos('Balance = 0',Data)<>0 then Bad

 

Ребята, помогите опять с потоками. Как сделать, чтоб форма не зависала, я - нашёл. То-есть У меня в проге теперь 2 потока, для формы и для чека, но как сделать, чтоб чекал он хоть в 10 потоков ? Как в других прогах, где можно количество потоков выбирать ? Я даже не знаю, как это загуглить. Тыкните носом - пойду матчасть курить, а так я даже не могу понять, что курить.

 

многопоточность , так и гугли!

 

А ты думаеш, я так не пробовал ? Совсем уже приколисты пошли...

Ну а по теме, может кто исходник кинет ? Я не против учится - я не знаю, что искать.

 

[url https://www.youtube.com/watch?v=OktqntxRWSg[/url]

может подойдет для тебя.

 

А вот это - хорошо, никто из тех, кого я смотрел, этого не объяснял. Спасибо.
Нашёл для себя именно то, что искал.

 

классно! моя карма теперь в плюсе т.к. я помог человеку ^^

 

Помог - если бы объяснил.

 

я помог ему найти то, что он просил! зачем делать то, что уже за меня сделали?

 

Потому что ты сам не знаешь то, что ты "помог", в таком случае надо бы и тебе посмотреть этот супертуториалS'

 

Где тут ошибка? procedure TForm1.Button1Click(Sender: TObject);
var asd: string;
begin
asd:='123';
if edit1.Text=asd then Form2.Show;
else Form1.Close; \\мне светит тут, почему7 в уроке такого нет
end;

end.

Проблему решил
if edit1.Text=asd then Form2.Show else Form1.Close;

 

ты наверное не совсем понял его просьбы! он просил дать источник с нужной ему информацией. я это сделал, он сказал СПАСИБО, значит я дал ему то, что нужно, просьбу выполнил.

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

 

Лучше не делай в строку одну, а разбей на 4 по списку:

if edit1.Text=asd then
Form2.Show
else
Form1.Close;

так визуально лучше. А проблему ты не решил. Потому что ошибку не нашёл, она прячется в ; , которая стояла после if edit1.Text=asd then Form2.Show; убрав всё будет работать.