Работа со строками в Delphi (XE)
Подкиньте код для нажатия на кнопку удаляется правая часть текста после знака ": (включительно) ".
Пример: в memo1 есть строка "qwerty:12345".
Нужно удалять 12345 включая двоеточие.
Подкиньте код для нажатия на кнопку удаляется правая часть текста после знака ": (включительно) ".
Пример: в memo1 есть строка "qwerty:12345".
Нужно удалять 12345 включая двоеточие.
Приблизительно так (сделай по аналогии) :
program regular;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, System.RegularExpressions;
var
s:string;
begin
try
Readln(s);
Writeln(TRegEx.Replace(s,':.+',''));
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
var a,b,max, min:integer;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
readln(a,b);
max:=b;
if a>b then begin max:=a; a:=b; b:=max; end;
min:=(b div 2);
if (b mod 2)>0 then inc(min);
if max>a then max:=a;
write(min,' ',max);
end.