Fórum Problemas com a função LeftBStr #262505
17/12/2004
0
tenho a seguinte função do Delphi:
LeftBStr(texto: AnsiString; numero: Integer): AnsiString;
begin
end;
Ao ler um arquivo texto com Readln obtenho a seguinte linha:
00001|12122|PAULO SERGIO DE OLIVEIRA|00000|0099
Este valor estou armazenando na variável s.
Se tento usar a seguinte instrução:
if LeftBStr(s, 5) = ´00001´ then
label1.caption := s
não é mostrado nada no label.
Alguém tem uma idéia do que pode ser?
Obrigado pela atenção de todos.
Jorgeolimpia
Curtir tópico
+ 0Posts
17/12/2004
Massuda
Se não estiver implementada então está funcionando corretamente: como está retorna uma string vazia e o caption do label nunca vai receber o valor da string s.
Gostei + 0
17/12/2004
Jorgeolimpia
o código completo é este:
implementation
{$R *.dfm}
function LeftBStr(line: AnsiString; number: Integer): AnsiString;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
t1: TextFile;
s: string;
begin
if opendialog1.Execute then
begin
AssignFile(t1, opendialog1.FileName);
Reset(t1);
while not eof(t1) do
begin
Readln(t1, s);
if LeftBStr(s,5) = ´00001´ then
label1.Caption := s
end;
end;
end;
end.
Desta maneira não deveria dar certo?
Obrigado pela atenção.
Se não estiver implementada então está funcionando corretamente: como está retorna uma string vazia e o caption do label nunca vai receber o valor da string s.[/quote:b7b95ae351]
Gostei + 0
17/12/2004
Gandalf.nho
Gostei + 0
17/12/2004
Massuda
implementation
{$R *.dfm}
function LeftBStr(line: AnsiString; number: Integer): AnsiString;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
// resto da unit omitidaA função LeftBStr está definida na unit StrUtils, você não precisa declarar uma função LeftBStr na sua unit. Mude seu código para:
implementation
{$R *.dfm}
uses
StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
// resto da unit omitidaGostei + 0
17/12/2004
Massuda
function LeftBStr(line: AnsiString; number: Integer): AnsiString; begin Result := Copy(line, 1, number); end;
Gostei + 0
17/12/2004
Jorgeolimpia
realmente a sua dica está certa.
Eu não sabia que não era necessário criar a função, já que ela existe dentro do Delphi.
Agradeço muito a sua ajuda.
Abraços...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)