Delphi - Alguien Sabe como....

Hola a todos;

Tengo un Valor en texto que corresponde a Ej: D-95-6355, Y quiero solamente quiero utilizar el 95...
este numero es para colocarlo en un variable

Gracias-...

Si todos los valores siguen el mismo patrón (es decir, son todos como los del ejemplo), es una cosa así:

procedure TForm1.Button1Click(Sender: TObject);
var
Variable: String;
begin
Variable:='';
Variable:=Variable+Edit1.Text[3];
Variable:=Variable+Edit1.Text[4];
end;

Si lo que quieres es quedarte con los números entre los guiones, este código selecciona lo que haya entre ellos y lo pone en la variable "Variable".

procedure TForm1.Button2Click(Sender: TObject);
var
Variable:String;
i: Integer;
Inicio, Fin: Integer;
begin
Inicio:=-1;
Fin:=-1;
i:=0;
while (Fin=-1) or (i=Length(Edit1.Text)) do begin
if Edit1.Text[i]='-' then begin
if Inicio=-1 then
Inicio:=i+1
else
Fin:=i-1;
end;
inc (i);
end;
For i:=Inicio to Fin do
Variable:=Variable+Edit1.Text[i];
end;

Espero que te sea útil.

Buenos dias,

Si siempre recibe el texto en el mismo formato puedes usar el la funcion copy donde le dices la variable a descomponer la posicion inicial y la longitud del string a extraer y pasar el resultado a una variable. Tanto la posicion inicial como la longitud pueden ser variables.

Ej.: form1.Edit2.Text := copy(form1.Edit1.Text,3,2);