Hola como estan?
Tengo algo que no me sale
Capas sea algo simple pero me esta sacando canas
Cargo en un Memo los nombres y apellido desde un DataSet
por ejemplo Asi
Código Delphi
[-]
DataSet.First;
While not DataSet.Eof do
begin
Memo.Lines.Add(DataSet.FieldByName('Campo1').AsString + ' - ' + DataSet.FieldByName('Campo1').AsString);
DataSet.Next;
end;
pero lo que me queda en el memo es algo asi
PEPE ' - ' LUI
MANUEL ' - ' FERNANDEZ
ETC
lo que quise hacer es asignarle una cantidad de espacios detras del primer nombre dependiendo del length de la Campo1
Ejemplo
Código Delphi
[-]
Function CompletaEspacio(MyCadena:String; iCant:Integer):String;
var i:Integer;
begin
Result := MyCadena;
for i := (iCant - Length(MyCadena)) to iCant do
Result := Result + ' ';
end;
Donde iCant es una cantidad fija que mandaba como parametro como limite de largo del Campo1
pero lo que obtengo en el memo es algo asi
Código Delphi
[-]
PEPE ' - ' LUI
MANUEL ' - ' FERNANDEZ
y lo que necesito es que me quede asi
Código Delphi
[-]
PEPE ' - ' LUI
MANUEL ' - ' FERNANDEZ
Saluda Atte Neeruu