Fórum ERRO = quot;No argument for format ´¬s´quot; #218031

Var AvisoDesp, Cont : Integer; Desp : TextFile; DespLin : String; Data2 : TDateTime; Plural : string[1]; begin Cont := 0; AssignFile(Desp, ´C:\Despesa.Txt´); Reset(Desp); While not Eof(Desp) do Readln(Desp,DespLin); try AvisoDesp := StrToInt(DespLin); except AvisoDesp := 0; end; Data2 := Date + AvisoDesp; DataModule1.Tbl_Despesa.First; while not DataModule1.Tbl_Despesa.Eof do begin if (DataModule1.Tbl_DespesaDt_Pagto.Value-AvisoDesp)=Date then begin Cont := Cont + 1; DataModule1.Tbl_Despesa.Next; end else DataModule1.Tbl_Despesa.Next; end; if Cont > 1 Then Plural := ´s´ else Plural := ´´; if Cont <> 0 then Label1.Caption := ´Há ´+IntToStr(Cont)+ ´ conta´+Plural+´ vencendo´ else Label1.Caption := ´Não há contas vencendo´; CloseFile(Desp); DataModule1.Qry_Despesa.Close; DataModule1.Qry_Despesa.SQL.Clear; DataModule1.Qry_Despesa.SQL.Text := ´SELECT DESCRICAO, DT_PAGTO, VALOR_PAGAR FROM DESPESA´+ ´ WHERE DT_PAGTO = :pDATA´; DataModule1.Qry_Despesa.ParamByName(´pDATA´).AsDate := Date+AvisoDesp; DataModule1.Qry_Despesa.Prepare; //DataModule1.Qry_Despesa.SQL.SaveToFile(´c:\teste.txt´); DataModule1.Qry_Despesa.Open; end;