Fórum Converter string em Delphi #603448
04/07/2019
0
Abs!
Gxf
Curtir tópico
+ 0Post mais votado
04/07/2019
Olá!
1º declare na Uses do seu form a unit StrUtils, e vc pode usar AnsiReplaceStr ou StringReplace
Exemplo simples:
editData.text := ''07-2018'';
editData2.text := AnsiReplaceStr(editData.text.Text, ''-'', ''/'')) );
E nesse link tem um exemplo que deve te ajudar:
https://www.devmedia.com.br/delphi-stringreplace-como-utilizar-a-funcao-stringreplace-no-delphi/13222
Espero que ajude :)
Elaine Urgal
Gostei + 1
Mais Posts
04/07/2019
Gxf
Gostei + 0
05/07/2019
Bruno Guelere
Você pode fazer mais ou menos dessa maneira:
Declare na suas uses SysUtils.TStringHelper.Split;
Depois na sua implementação coloque:
var
MyString: String;
Splitted: TArray<String>;
begin
MyString := 'word:doc,txt,docx';
Splitted := MyString.Split(['-']);
end.
O array ficará com duas posições, somente inverta elas.
Gostei + 0
05/07/2019
Bruno Guelere
Você pode fazer mais ou menos dessa maneira:
Declare na suas uses SysUtils.TStringHelper.Split;
Depois na sua implementação coloque:
var
MyString: String;
Splitted: TArray<String>;
begin
MyString := 'word:doc,txt,docx';
Splitted := MyString.Split(['-']);
end.
O array ficará com duas posições, somente inverta elas.
Onde ficou o texto de exemplo (word:doc,txt,docx) troque pela sua data (2018-07).
Gostei + 1
08/07/2019
Gxf
No caso pego a string de um XML e ela é no formato 2018-07. Deu certo a conversão do "-" para a "/", porém para deixar como 07/2018 ao invés de 2018/07, teria como tbm?
Abs.
Gostei + 0
08/07/2019
Rafael Bosco
var
NovaData: UnicodeString;
OldData: UnicodeString;
begin
OldData := '2018-07';
NovaData := FormatDateTime('mm/yyyy', OldData);
end
Gostei + 1
08/07/2019
Gxf
"There is no overloaded version of 'FormatDateTime' that can be called with these arguments"
Gostei + 0
08/07/2019
Gxf
Gostei + 0
08/07/2019
Gxf
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)