vectores en delphi

[sultan]

hola a todos!!!!!
tengo un problemilla y necesito que me ayudeis.
estoy haciendo el juego del colgado, y tengo dos dudas:

1.-si yo kiero hacer que nadamas empezar el juego me salga una ventanita donde te diga" introduce tu nombre", para que luego te salga en un label que tengo en el programa, como puedo hacer la ventanita esta?? es que no se con que hacerla la verdad.

2.-se puede hacer una comparacion entre dos editext, eso lo tengo claro; pero hacerla con posiciones del editext, i dentro de un if ; se puede??

mas o menos algo asi (os aviso de que puede ser que lo escriba mal, porque no se muy bien como seria la sintaxi, perdon) :
procedure();
begin
i:=0;
for i:=0 to 10 do
begin
if (editext.text[i]:=editext1.text[i]) then
begin
.....
end
end
end;
es posible hacerlo???

muchas gracias

[[Lepe]]

1.- Puedes usar la función InputBox de delphi (mira en la ayuda para ver los parámetros). O también puedes crearte un Form pequeño con un Edit y un botón. Para mostrarlo, harías Form2.ShowModal; y sería lo mismo que inputBox.

2.- Como bien dices tienes varias alternativas:

Código Delphi [-]
if compareText(edit1.text, edit2.text) = 0 then
  // tiene las mismas letras (aunque puede que sea distinto las mayúsculas o minúsculas)
else
  // los textos varían en alguna letra

Si quieres comparar que sea exacto incluso mayúsculas y minúsculas:

Código Delphi [-]
if edit1.text = edit2.text then

O como quieres hacerlo por letras, pero debes tener cuidado, imagina que un edit tiene 10 letras y el otro sólo 2, cuanto intentes comparar la tercera letra de ambos, se mostrará un error:

Código Delphi [-]
var L1, L2 :integer;
   EsIgual:Boolean;
begin 
L1 := length(edit1.text);
L2 := length(edit2.text);
EsIgual := L1 = L2;
if EsIgual then   // si tienen la misma longitud, ya puedo comparar todas las letras
  for i:= 1 to L1 do
  begin 
       if edit1.text[i] <> edit2.text[i] then
       begin
          EsIgual := False;
          break;
       end;
  end;

(también puede tener errores, ya que lo he escrito directamente en el foro).

Saludos

[sultan]

muchisimas gracias lepe!!!!

ahora ya me funciona al 100 %