Re: Определение символа в строке
И еще, чтобы не создавать новый топик пишу здесь.
Почему зависает вот эта процедура? Вроде все правильно, а оно виснит.
procedure ShowTable;
var i:integer;
begin
setcolor(0,0,0);
fillRect(0,0,getWidth,getHeight);
setcolor(255,255,255);
for i:=0 to 6 do
begin
drawline(0,i*16,getWidth,i*16);
end;
for i:=0 to 3 do
begin
drawline(i*(getWidth div 3),0,i*(getWidth div 3),getHeight);
end;
repaint;
delay(2000);
end;
|