comparar cadena de dos textos

[coyule]

Hola foro, una ayudadita
Bueno, ya busque haber si encontraba una respuesta antes de preguntar y no la encontre claramente..

bueno, tengo una aplicacion que extrae los nombres de los archivos y
los aguarda en una base dee dados.... Pero algunos archivos tienen por nombre mas de 50 caracteres, Y lo que quiero es que cuando encuentre un archivo de mas de 35 caracteres sin importar caracter hacer la comparacion con una variable. Gracias de antemano

estoy enpezando con delphi




delphi 7 win xp

[dec]

Hola,

No sé yo si podrías usar alguna función como "CompareStr" de la unidad "SysUtils"...

[coyule]

No me sirve David,

te pongo un ejemplo:

1-mi archivo musical xxzxx = 24 caracteres incluyendo espacio
2-mi archivo musical xzzzx xxxx =29 caracteres incluyendo espacio

bueno, si te fijas las frases son diferentes pero si yo tengo un campo
que por obligacion no acepta mas de 24 caracteres no cabe y para esto ocuparia una funcion a saber cuantos caracteres tiene el nombre de
ese archivo antes de entrar al campo(Nota: no los quiero comparar que sean iguales o diferentes, solo que si tiene mas de 24 caracteres con un If me de cuenta para yo editarlo antes de que lo agregue a la base de dadtos)

[dec]

Hola,

O sea, ¿quieres saber si una determinada cadena tiene más de 24 caracteres? Pues tal vez con la función "Length":

Código Delphi [-]
var
  cadena: string;
begin
  cadena := '12345678901234567890123';
  if Length(cadena) >= 24 then
    ShowMessage('La cadena tiene más de 24 caracteres');
end;

Si quieres quedarte con los 24 primeros caracteres de una cadena puede que la función "LeftStr" te sirva:

Código Delphi [-]
var
  s: string;
begin
  s := 'sólo los primeros 24 caracteres';
  ShowMessage( StrUtils.LeftStr(s, 24) );
end;

[coyule]

Solucionado.......... Muuuuuuuuchas gracias

[thelibmx]

hola amigos del foro, reciban un gran saludo y una grande felicitacion por todo el apoyo que se da aqui, mi problema es el siguiente, necesito rellenar una cadena de caracteres ejemplo.

mi cadena es igual a b:= '534'

bien lo que quiero es que mi cadena tenga una longitud de 10 caracteres, es decir, ''b'' vale de longitud 3, entonces me faltan 7 caracteres para rellenar, esos caracteres que faltan los quiero rellenar con '0' (ceros) entonces quedaria algo asi

nuevo valor de b:='0000000534' y asi sucesivamente con diferentes numeros

ejemp.2

a:='25';
nuevo valor:='0000000025'

espero haberme explicado bien, si se preguntan para que?, realmente es algo insignificante pero importante, lo tengo que igualar a otro archivo.

todos esos numeros los tengo en un archivo de texto pero mi resultado es asi

520, 35,60
25, 35,20
590, 65,32

y el resultado que quiero es

0000000520, 35,60
0000000025, 35,20
0000000590, 65,32

bueno saludos y gracias por su ayuda