obsluga bledow

witam, moze mi ktos powiedziec jak poprawnie wpisac komende zeby wywalalo mi okienko ze wpisana zla liczbe? w kodzie mam
try
a1:=StrTofloat(a1Edit.Text);
b1:=StrTofloat(b1Edit.Text);
a2:=StrTofloat(a2Edit.Text);
b2:=StrTofloat(b2Edit.Text);
w1:=StrTofloat(w1Edit.Text);
w2:=StrTofloat(w2Edit.Text);
except
on EConvertError do begin
MessageDlg('Nie podano poprawnej liczby!',mtError,[mbOK],0);
exit;
end;
end;

niestety nie chodzi;) dzieki z gory za wszleka pomoc.

Jak to nie działa? Nawet jak uruchomisz exe z poza Delphi albo wyłączysz wychwytywanie wyjątków w opcjach Debuggera?

ok moja wina;] chodzilo o to wychwytywanie bledow ;].

jeszcze mam jedno pytanie. jak moge zrobic aby po nacisnieciu na button zapisalo mi sie wszystko w jednym pliku tekstowym.
konkretnie chodzi mi o informacje z label + 2 czy 3 edity?

Najprościej to będzie dynamicznie utworzyć obiekt TStringList dodać do niego Captiony Labeli oraz
Texty z Editów - przy pomocy metody Add('Tekst'), a na końcu zapisać poprzez SaveToFile('plik');

moglbys mi pomoc jak to zrobic, przyznaje sie bez bicia ze nie mam bladego pojecia jak to zrobic:)

unit UkladUnit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
a1Edit: TEdit;
a2Edit: TEdit;
b1Edit: TEdit;
b2Edit: TEdit;
w1Edit: TEdit;
w2Edit: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GroupBox2: TGroupBox;
WynikLabel: TLabel;
Label5: TLabel;
Label6: TLabel;
XEdit: TEdit;
YEdit: TEdit;
Label7: TLabel;
WEdit: TEdit;
Label8: TLabel;
WyEdit: TEdit;
Label9: TLabel;
WxEdit: TEdit;
BitBtn1: TBitBtn;
Button1: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
a1,b1,w1,a2,b2,w2: Real;
W,Wx,Wy: Real;
x,y: Real;
begin

try
a1:=StrTofloat(a1Edit.Text);
b1:=StrTofloat(b1Edit.Text);
a2:=StrTofloat(a2Edit.Text);
b2:=StrTofloat(b2Edit.Text);
w1:=StrTofloat(w1Edit.Text);
w2:=StrTofloat(w2Edit.Text);
except
on EConvertError do begin
MessageDlg('Nie podano poprawnej liczby!',mtError,[mbOK],0);
exit;
end;
end;

W:=a1b2-a2b1;
WEdit.Text:=FloatToStr(W);

Wx:=w1b2-w2b1;
Wy:=a1w2-a2w1;

WxEdit.Text:=FloatToStr(Wx);
WyEdit.Text:=FloatToStr(Wy);

if (W=0) then begin
if ((Wx=0) and (Wy=0)) then
WynikLabel.Caption:='Układ nieoznaczony!'
else
WynikLabel.Caption:='Układ sprzeczny!';

    XEdit.Text:='';
    YEdit.Text:='';

end else begin
WynikLabel.Caption:='Znaleziono 1 rozwiązanie';

    x:=Wx/W;
    y:=Wy/W;

    XEdit.Text:=FloatToStr(x);
    YEdit.Text:=FloatToStr(y);

end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.

w sumie chodzi o dopisanie do tego ostatniego buttona tej opcji. dzieki z gory za pomoc:) a i przepraszam ze prosze o "gotowca" ale niestety jutro mam do zaliczenia jeszcze 3 kolokwia i sie ostro na nie ucze:) dzieki z gory za hlp:)

No tak czas sesji, ale uczenie się nie powinno przeszkadzać w użyciu googli i sprawdzeniu jak się w
ogóle używa StringList, bo skoro i tak piszesz na forum to szybciej korzystając z neta wygooglować.

var
  SL : TStringList;
begin
  SL := TStringList.Create;
  SL.Add(Label1.Caption);
  SL.Add(Edit1.Text);
  // Czy co tam chcesz dodajesz i zapisujesz
  SL.SaveToFile('plik.txt');
  SL.Free;
end;