Witam!
Mam problem z Lazarusem. Po skompilowaniu programu i odpaleniu klikam sobie elegancko na button i wybieram sciezke do pliku tekstowego z danymi ,ale niestety wyskakuje niespodzianka:Project projekt.exe raised exception class 'RunError(3)'.
Oto kod:
//procedura klikniecia przycisku wczytaj plik
procedure TForm1.Button_wczytaj_plikClick(Sender: TObject);
var
plik:TextFile;
dane:string;
i,j:integer;
begin
//sprawdzanie czy otwarty zostal plik
if (otworz_plik.Execute) then begin
//czyszczenie listboxa
ListBox_rownanie.Items.Clear();
//odblokowanie przyciskow
Button_oblicz_rowanie.Enabled:=True;
Button_zapisz.Enabled:=True;
//skojazenie pliku i otwarcie do odczytu
AssignFile(plik,otworz_plik.FileName);
Reset(plik);
//odczyt liczby rownan
readln(plik,n); po komunikacei o bledzie podswietla sie ta linijka!!
for i := 1 to n do
begin
WK[i] := i; // inicjujemy wektor kolumn
for j := 1 to n + 1 do read(plik,AB[i,j]);
end;
WK[n + 1] := n + 1;
//ustalenie rozmiaru macierzy
macierz.ColCount:=n+1;
macierz.RowCount:=n+1;
macierz.FixedCols:=0;
//odblokowanie macierzy
macierz.Visible:=True;
//zapis niewiadomych
for i:=0 to n-1 do macierz.Cells[i,0]:=' x'+Inttostr(i+1);
macierz.Cells[n,0]:='W';
//zapis danych do macierzy
for i := 1 to n do
begin
for j := 1 to n + 1 do macierz.Cells[j-1,i]:=FloatToStr(AB[i,j]);
end;
//zamykanie pliku
CloseFile(plik);
end;
end;
Mam Winde XP i Lazarusa v0.9.30. Nie sadze zeby to bylo cos z kodem a raczej z ustawieniami Lazarusa.Wie ktos o co chodzi?Bede bardzo wdzieczny za pomoc