Из string в integer

[MAKEDON]

Я знаю что можно перевести данные из числового(integer) в строчный тип(string). А мне нужны данные из строки перевести в числовой...в строке первоначально числа, если что. Как это можно сделать? И взможно ли это вообще?

[Roof]

вот так

procedure TForm1.Button1Click(Sender: TObject);
var
a, b, itog: integer;
begin
a:= StrToInt(Edit1.Text);    //из строки в число(integer)
b:= StrToInt(Edit2.Text);
itog:= a+b;
Label1.Caption:= IntToStr(itog);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
itog: integer;
begin
s:= '5';
itog:= StrToInt(s)*2;
Label1.Caption:= IntToStr(itog);
end;

[MAKEDON]

Ппц) протсо наоборот чем IntToStr)) Спс башое!

[MAKEDON]

А можно перевести из типа Extended в тип String?

[_Dmitry]

Можно, FloatToStr

[Stilet]

Да FloatToStr и их семейство.

ха!! Опять не успел

[Ring0Sn]

Только надо читывать что FloatToStr и их семейство. ориентированы на локаль (разделитель = либо точка | либо запятая)!
Если у вас допустим локально используеться разделитель "запятая", то запустив вашу программу в другом месте, где в локали точка, то получите EConvertError
Тачто это семейство не оченьто и пригодно, в отличие от старых добрых паскалевских Val и Str
это так для справки, чтоб некоторые не удивлялись почуму их задачки могут дома работать а в выч. зале нет

[Stilet]

Ну эта болзнь "семейства" лечится просто: DecimalSeparator в нужный символ

P.S. кстати такой пример как Val('12,34',e,k); даст неверный результат.
Так что он тоже не панацея

[Ring0Sn]

Сообщение от Stilet

Ну эта болзнь "семейства" лечится просто: DecimalSeparator в нужный символ

TFormatSettings = record
  CurrencyFormat: Byte;
  NegCurrFormat: Byte;
  ThousandSeparator: Char;
  DecimalSeparator: Char;
  CurrencyDecimals: Byte;
  DateSeparator: Char;
  TimeSeparator: Char;
  ListSeparator: Char;
  CurrencyString: string;
  ShortDateFormat: string;
  LongDateFormat: string;
  TimeAMString: string;
  TimePMString: string;
  ShortTimeFormat: string;
  LongTimeFormat: string;
  ShortMonthNames: array[1..12] of string;
  LongMonthNames: array[1..12] of string;
  ShortDayNames: array[1..7] of string;
  LongDayNames: array[1..7] of string;
  TwoDigitYearCenturyWindow: Word;
end;

А ТО ))) очень удобно, таскать с собой 20 параметров ))))

Сообщение от Stilet

P.S. кстати такой пример как Val('12,34',e,k); даст неверный результат.
Так что он тоже не панацея

Само собой) Val всегда был заточен под .ТОЧКУ
немного прикинув:

function Extstr2Float( s: string ) : double;
var p : Integer
begin
  p := pos( ',',  s ); 
  if p > 0 then s[p] := '.';
  Val( s, Result, p );
end;

можно получить универсальную функцию и забыть про все эти семейства ...FloatTo...

зы но спорить не будем, каждому своё (и своё не каждому )

[Stilet]

очень удобно, таскать с собой 20 параметров

Ну так можно и с VCL поругаться ))))
Впрочем спорить не буду. VCL перегруженна на славу.