Funcao quot; ; quot; ( Ponto e v�rgula )

Question

Gostaria de uma fun��o q fizesse isso:Eu dou uma variavel pra ela por exemplo -> A ; B ; C ; DEnt�o eu informaria um n�mero pra ela ou seja um �ndice e ela me retornaria uma string.Aplicando nesse ...

Marcio.theis · Answer

Por que voc� n�o da uma vari�vel para ele assim:

variavel:=ABCDE;

e depois vc apenas faz um for, como por exemplo:

for x:=1 to numero do
ret:=variavel[x];

numero, vari�vel que vc iria informar, passar pale ele logalizar.
desta forma a vari�vel ret teria a sua letra, mas tb podendo utilizar um copy, ou outras formas para localizar.

Patricksc · Answer

nao daria pq nesse caso eu usei s� um exemplo pq na real vao conter dados de diversos formatos naum vou usar apenas A B C D.....
entende ???

poderia ter numeros ( 1245213; 15681231; 4456; 1561....) ou camops
(Clientes; Fornecedores; .bla...bla..bla.......);

Naum sei se vc me entendeu ?

Marcio.theis · Answer

Fia a seguinte fun��o:[code:1:4bcf2fa471]function TForm1.Busca(texto: string; posicao: integer): string;var    ret: string;    aux, x, y: integer;    achou: boolean;beginy:=1;x:=1;ret:=��;achou:=False;aux:=Length(texto);while not achou do    begin    while x <= aux do        begin        if texto&#91;x&93; = �;� then            begin            if y = posicao then                begin                achou:=True;                x:=aux + 1;                end            else                begin                Inc(x);                Inc(y);                ret:=��;                end;            end        else            begin            ret:=ret + texto&91;x&93;;            Inc(x);            end;        if x = aux + 1 then            achou:=True;        end;    end;Busca:=Trim(ret);end;[/code:1:4bcf2fa471]no qual eu passo como par�metro o texto(1245213; 15681231; 4456; 1561) e na posicao a posi��o do texto que eu quero (2), no caso ela me retorna 15681231, mas deve ainda de ser melhorada, fiz rapidinho n�o fiz algumas valida��es, mas acho que � isto que vc quer.......

Massuda · Answer

Pelo que entendi, voc� provavelmente est� procurando um jeito de passar um n�mero vari�vel de argumentos de qualquer tipo para uma fun��o/procedure.

Uma solu��o para isso � usar um argumento do tipo [b:8d7d2fa64d]array of const[/b:8d7d2fa64d], que � como um array dinamico de Variant�s (procure na Ajuda do Delphi pelo t�pico �variant open array parameters�). Este � o exemplo da Ajuda do Delphi:

uses
  Variants, // se for Delphi 6 ou mais recente
  ...
function MakeStr(const Args: array of const): string;
const
  BoolChars: array[Boolean] of Char = (�F�, �T�);
var
  I: Integer;
begin
  Result := ��;
  for I := 0 to High(Args) do
    with Args[I] do
      case VType of
        vtInteger:    Result := Result + IntToStr(VInteger);
        vtBoolean:    Result := Result + BoolChars[VBoolean];
        vtChar:       Result := Result + VChar;
        vtExtended:   Result := Result + FloatToStr(VExtended^);
        vtString:     Result := Result + VString^;
        vtPChar:      Result := Result + VPChar;
        vtObject:     Result := Result + VObject.ClassName;
        vtClass:      Result := Result + VClass.ClassName;
        vtAnsiString: Result := Result + string(VAnsiString);
        vtCurrency:   Result := Result + CurrToStr(VCurrency^);
        vtVariant:    Result := Result + string(VVariant^);
        vtInt64:      Result := Result + IntToStr(VInt64^);
    end;
end;

// exemplo de uso
MakeStr([�test�, 100, � �, True, 3.14159, TForm]);
// resulta "test100 T3.14159TForm"

A fun��o converte para texto os argumentos passados para ela. Note que a fun��o testa o tipo de cada argumento (Args[I].VType) para decidir como converter o argumento para texto.

O exemplo veio da Ajuda do Delphi 5, talvez para Delphi 6 ou mais recente possam existir diferen�as em rela��o ao apresentado acima.

Patricksc · Answer

Vlw Pessoal vcs s�o d++ !!!!...

Patricksc · Answer

Ahhh outra coisa como eu faria se quisesse contar quantos � ; � ponto e vigulas tem numa string ??...

Massuda · Answer

O mais f�cil � percorrer a string e contar...

var
  I: Integer;
  N: Integer;
  S: string;
....
  S := �... algum texto ...�;
  N := 0;
  for I := 1 to Length(S) do begin
    if S[I] = �;� then Inc(N);
  end;

Kapak · Answer

Se vc fizer conforme o Massuda disse, n�o precisa mais informar �;�. Simplesmente chame:Nome_da_Funcao([�asdfg�, 123, 12.345]);...

Patricksc · Answer

� que no meu caso � diferente pq vai conter � ; � .
Mas pq ???

Pq estarei ultilizando arquivo �CSV� Comma Separated values entaum sao arquivos separados por �;� entende??

Entaum preciso saber quantos �;� para saber quantos campos existem e presiso separar uma string por �;�.

Entenderam ???

Kapak · Answer

[code:1:d965621f67]var p:PChar; iPos:Integer; SL:TStringList;begin  SL := TStringList.Create;  p := @s&#91;1&93;; // s � a string c/ os ";"  iPos := Pos(�;�, p);  While iPos > 0 do  begin    SL.Add(Copy(p, 1, iPos-1));    Inc(p, iPos);    iPos := Pos(�;�, p);  end;  SL.Free;end;[/code:1:d965621f67]Utilize SL.Count p/ saber a quantidade de strings....

F�rum Funcao quot; ; quot; ( Ponto e v�rgula ) #273622