Retirar um pedaço de uma string
Tenho o seguinte comando:
dm.cds_aux_esp.FieldByName(´obs´ + inttostr(w)).AsString := (dm.cds_resultado.fieldbyname(´procuraevento´ + inttostr(i)).AsString + ´ ´ + dm.cds_resultado.fieldbyname(´refer´ + inttostr(i)).AsString);
no ultimo pedaço: dm.cds_resultado.fieldbyname(´refer´ + inttostr(i)).AsString); essa string é um horário, ex: 08:00:00 e gostaria de deixar assim: 08:00
Só que não consigo uma formatação que chegue a esse resultado.
Alguém me dá uma dica
dm.cds_aux_esp.FieldByName(´obs´ + inttostr(w)).AsString := (dm.cds_resultado.fieldbyname(´procuraevento´ + inttostr(i)).AsString + ´ ´ + dm.cds_resultado.fieldbyname(´refer´ + inttostr(i)).AsString);
no ultimo pedaço: dm.cds_resultado.fieldbyname(´refer´ + inttostr(i)).AsString); essa string é um horário, ex: 08:00:00 e gostaria de deixar assim: 08:00
Só que não consigo uma formatação que chegue a esse resultado.
Alguém me dá uma dica
Roberto Rossi
Curtidas 0
Respostas
Rômulo Barros
08/11/2004
[color=blue:627adfb251][b:627adfb251]Segue:[/b:627adfb251][/color:627adfb251]
Se no banco de dados o campo ´refer´ aceitar datas, segue:
dm.cds_aux_esp.FieldByName(´obs´ + inttostr(w)).AsString := (dm.cds_resultado.fieldbyname(´procuraevento´ + inttostr(i)).AsString + ´ ´ + Copy(dm.cds_resultado.fieldbyname(´refer´ + inttostr(i)).AsString),1,5);
Se no banco de dados o campo ´refer´ aceitar datas, segue:
dm.cds_aux_esp.FieldByName(´obs´ + inttostr(w)).AsString := (dm.cds_resultado.fieldbyname(´procuraevento´ + inttostr(i)).AsString + ´ ´ + FormamtDateTime(´hh:mm´,dm.cds_resultado.fieldbyname(´refer´ + inttostr(i)).AsDateTime));
GOSTEI 0