[resolvido] Recortar String Até *, Ou Espaço

[schaukoski]

Olá pessoal...

estou procurando o comando para recortar o primeiro nome da pessoa, acho que algo com o TRIM

variavel := 'EDUARDO MOURA SCHAUKOSKI';

Trim(variavel)

resultado : EDUARDO

OU recortar até o '*'

Ex:

variavel := 'EDUARDO MOURA SCHAUKOSKI *DELPHI*';

TRIM(variavel)

resultado : EDUARDO MOURA SCHAUKOSKI

Muito Obrigado!

RESOLVIDO PESSOAL, UMA FUNCTION RESOLVEU MEU PROBLEMA! Agradeço!

Function Limpanome(nome:string) :string;
var
  nomeclean:string;
  i:integer;
begin
  for i:=1 to length(nome) do begin
    if copy(nome,i,1)<>'*' then begin
      nomeclean:=nomeclean+copy(nome,i,1);
    end else begin
      result := trim(nomeclean);
      exit;
    end;
  end;
  result := trim(nomeclean);
end;

Editado Outubro 16, 2007 por schaukoski

[Bruno Souza]

Valeu Eduardo, era isto mesmo que eu estava procurando...

Obrigado