dodawanie i takie tam

0

chce żeby wartość zmiennej a była dodana do(nie łączenie ciągów np: 1+1=11) zmiennej b i wynik był wyświetlany w edicie

Edit.Text:= a + b

-to nie działa

pewnie trza dodać jakieś StrToInt czy coś mam więc prośbę żeby ktoś to wytłumaczył mi i te StrIntTo (czy jak to jest) :-)
jestem początkującym i dopiero sie uczę więc proszę o wyrozumiałość

0

procedure TForm1.ObliczClick(Sender: TObject);
var
f,t:currency;
begin
try
f:=strtocurr(edit1.Text);
t:=strtocurr(edit2.Text);
label36.Caption:=currtostr(f+t);

except
MessageBox(Handle ,('Podaj Liczby), 'Brak Liczb', MB_OK);
end;
end;

0

Edit.Text:=IntToStr(a+b);

IntToStr <- konwertuje typ Integer (jak i wszystkie inne typy całkowite) na postać łańcucha czyli String.. no co tu tłumaczyć? StrToInt działa w drugą stronę.

0

a ort! w Edicie to
Edit.Text:=currtostr(x+t);

0

jerzeli

Ałaaa moje oczy... i co Ty z tym Curr... :| ?

0

Stępień, nie obraż się, ale troche Cie ponisło z tym przykładem dla tak początkującego. A oto pare przykładów:

var
  s: string;
  i: integer;
  r: real;
begin
  s := IntToStr(i);
  s := FloatToStr(r);
  i := StrToInt(s);
  i := Round(r); //lub trunc, int, opis w helpie
  r := StrToFloat(s);
  r := i;

A Edit.Text jest typu string, czyli tak jak wcześniejsze s

0

może ci się przydać...:

IntToStr Konwertuje typ Integer na String
StrToInt Konwertuje typ String na Integer
CurrToStr Konwertuje typ Currency na String
StrToCurr Konwertuje typ String na Currency
DateTimeToStr Konwertuje typ TDateTime na String
StrToDateTime Konwertuje typ String na TDateTime
DateToStr Konwertuje typ TDate na String
StrToDate Konwertuje typ String na TDate
TimeToStr Konwertuje typ TTime na String
StrToTime Konwertuje typ String na TTime
FloatToStr Konwertuje typ Extended na String
StrToFloat Konwertuje typ String na Extended
IntToHex Konwertuje typ Integer do postaci heksydemalnej
StrPas Konwertuje typ String na PChar
StrPCopy Konwertuje typ PChar na String
StrToBool Konwertuje typ String na Boolean
StrToInt64 Konwertuje typ String na Int64

pozdro.

0

O to ja mam pytanie jak zamienić postać heksydemalną na string?

0 
StrToInt('$'+hexadecymalskistring);
0 
IntToHex(255) = 'FF'
IntToHex($FF) = 'FF'
IntToStr($FF) = '255'
StrToInt('$FF') = 255

Zwróć uwage gdzie są apostrofy, a gdzie nie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1