Mario Junior Gyn

Boa tarde Graymalkin, tudo bem?? posso te pedir para você corrigir para mim esse código?? eu to iniciando mesmo na carreira, peguei isso apenas com teste de aprendizado... você tem como descobrir onde eu estou errando, não consigo ver meu erro, peço sua ajuda para isso. Obrigado. A showmessge apresenta uma mensagem, eu quero pegar essa mensagem que aparece na caixa de diálogo da showmessage e colocar no caption de um label, mas... se a messagenbox tem como fezer isso também?? ou ambas não tem como fazer isso??? Obrigado.

Boa noite Graymalkin, tudo bem?? tenho mais uma pergunta para você. desculpe se estou sendo chato -rs - mas... vamos la... já tentei de diversas forma para jogar o valor de uma show message no capiton de um label, so que não consegui, você pode me ajudar a fazer esse "proeza" - rsrs. O que quero fazer é o seguinte, pegar o resultado de uma Showmessage e jogar no caption de um Label... você pode me ajudar a resolver isso??? Obrigado.

Boa Tarde Graymalkin, tudo bem... esse codigo que você colovou para que os times apareçam nos labels, o ultimo time aparece com um numero grande e não o titme sorteado, já procurei o erro e não consegui achar, você pode me dar uma ajuda. obrigado. Vou colocar todo o codigo do controle. var times : array[0..7] of integer; i, qt, n, total : integer; achou : boolean; [begin randomize; qt := 0; i := 0; for i:=low(times) to high(times) do times := -1; while qt<=high(times) do begin n := random(high(times)+1)+1; achou := false; for i:=low(times) to high(times) do if times=n then achou := true; if not achou then begin times[qt] := n; qt := qt+1; end; end; total := trunc((high(times)-1)/2); for i:=0 to total do begin // showmessage('Time ' + inttostr(times) + ' : Time ' + inttostr(times[total+i+1])); end; begin label1.caption := ('Time ' + inttostr(times) + ' x Time ' + inttostr(times[total+i-5])); label2.caption := ('Time ' + inttostr(times[i+1]) + ' x Time ' + inttostr(times[total+i-6])); label3.caption := ('Time ' + inttostr(times[i+2]) + ' x Time ' + inttostr(times[total+i-7])); label4.caption := ('Time ' + inttostr(times[i+3]) + ' x Time ' + inttostr(times[total+i-8])); end; end;] Desde já agradeço sua atenção.