Делаю игру.

← →
Lolik (2005-01-12 15:43) [0]

Уважаемый мастера помогите мне пожалуйста.Я делаю игру в ней в Label загружается случайная строка из файла. Как сделать так что бы после нажатия на Label программа проверила есть ли в этой строке знак * то в лабел должна загрузиться 6 или 11 или 18 строка из файла.

← →
Александр Иванов © (2005-01-12 15:53) [1]

procedure TForm1.Label1Click(Sender: TObject);
begin
if Pos("*",(Sender as TLabel).Caption) <> 0 then
begin
with TStringList.Create do
begin
try
LoadFromFile("ttt.txt");
Randomize;
case Random(3) of
0:(Sender as TLabel).Caption:=Str[6];
1:(Sender as TLabel).Caption:=Str[11];
2:(Sender as TLabel).Caption:=Str[18];
end;
finally
Free;
end;
end;
end;
end;

← →
Поручик © (2005-01-12 15:53) [2]

В цикле проверять каждый символ в Caption
Напрмер так
Var S: string; i: integer; begin s := label1.caption; for i:=1 to length(s) do if s[i]="*" then // дальше, то что надо тебе

← →
begin...end © (2005-01-12 15:56) [3]

> Lolik (12.01.05 15:43)

> Я делаю игру

Я даже знаю, как она называется.

← →
begin...end © (2005-01-12 16:15) [4]

> Поручик © (12.01.05 15:53) [2]

Ты чего Pos так не любишь?

← →
TButton © (2005-01-12 16:34) [5]

> Я даже знаю, как она называется.

и?

← →
raidan © (2005-01-12 16:38) [6]

"Кто хочет стать миллионером" :spy: :)

← →
avi (2005-01-12 18:21) [7]

Александр Иванов
Ваш код не работает. Программа не запускается из за этих строк
0:(Sender as TLabel).Caption:=Str[6];
1:(Sender as TLabel).Caption:=Str[11];
2:(Sender as TLabel).Caption:=Str[18];

← →
MacroDenS © (2005-01-12 19:08) [8]

>>Ваш код не работает. Программа не запускается из за этих строк

А что говорит при запуске???

> begin...end © (12.01.05 19:21)

Ну как я понял автор сего кода подразумевал, что Str — это TStringList, но забывает его объявить, и в целях экономии памяти и объема кода не использует дополнительной переменной, обращаясь к созданному экземпляру TStringList посредством конструкции with.

Делаю игру. Найти похожие ветки