Jak zapisać i odczytać wyniki do pliku w Delphi dla metody Gaussa?

Question

Witam
potrzebuje dopisać do programu służącego do obliczania równań tetodą gaussa procedure służącą do odczytu/zapisu wyników do pliku. Narazie skupiłem się na zapisie do pliku lecz i to mi wychodzi z marnym skutkiem. Prosze o pomoc i ewentualne wskazanie błędów. To jest kod programu:

Zaloguj się, aby zobaczyć kod

Dżyszla · Answer

Jeśli chcesz zapisać to dlaczego używasz funkcji czytaj (=read) ? Generalnie posługiwanie się starymi metodami dostępu do pliku nie jest czymś złym, ale jest kilka innych, nowoczesnych metod. Możesz np zapisać sobie wszystko w strukturze TStringList a potem użyć metody SaveToFile. Tak w zasadzie - jak chcesz zapisywać wyniki i na czym ma polegać odczyt? Na marginesie: jeśli problem ogranicza się do zapisu/odczytu to zamieszczaj tylko fragmenty kodu odpowiedzialne za to.

maciekm7 · Answer

udało mi się zrobić zapis/odczyt taki o jaki mi chodziło ale niestety po dokonaniu odczytu program wraca do wypełniania nowej macierzy. Nie wiem co z tym teraz można zrobić. Oto zmieniony kod:Kod: DelphiZaloguj się, aby zobaczyć kod

Dżyszla · Answer

No zastanawiam się, czy to żart, czy późna pora tylko? Przecież jak odczytujesz to nie wypełniasz... czyli jeśli if jest spełniony to odczytujesz, a w przeciwnym wypadku (else) wykonujesz blok odpowiedzialny za wypełnienie.

Ponadto przed odczytem warto byłoby ustalić rozmiar albo pobrać go z pliku również. Mam wrażenie, że wstawiłeś kod gdzie pasowało, jakbyś nie wiedział, gdzie do tej pory dokonywałeś wypełniania.

mgr inż. Dżyszla <- Download i oficjalna strona Dekodera Elektronika!
Nie odpowiadam na problemy i pyt. zgłaszanie via PW/mail!

Pisz bardziej wydajny kod w Delphi!

Promuję tematy:
10.05.2026 Zasilacz laboratoryjny - rozbudowa

maciekm7 · Answer

Dzięki Dżyszla miałeś racje. Komenda else rozwiązała mój problem. A czy może mi ktoś podpowiedzieć jak przerobić ten program na VCL ?

blue_17 · Answer

Procedury podpinasz na przykład pod przyciski funkcje dajesz w sekcji implementation a to co wprowadzasz to zczytujesz np z editów czy z czego Ci tam pasuje

maciekm7 · Answer

Witam ponownie
Postanowiłem przerobić program aby możliwe było zapisanie/odczytanie macierzy podanej z klawiatury (przed dokonanymi obliczneniami). Niestety zapis do pliku działa lecz z odczytem mam problem. Wyswietla mi się runtime error 106 (z tego co udało mi się doczytać niezgodność pliku tekstowego z liczbami). W jaki sposób można to poprawić?? Oto kod zapisu/odczytu:

Zaloguj się, aby zobaczyć kod

blue_17 · Answer

Nie wiem jakie masz liczby całkowite czy tez nie ale spróbuj

StrToInt() funkcja konwertuje ze stringa do inta

Nigdzie nie widzę żebyś robił coś takiego

w załączniku program liczący robiący podobnie jak u Ciebie tylko tam juz mam dynamiczne tablice

zauważ

Zaloguj się, aby zobaczyć kod

w programie jeszcze masz pokazane jak zrobić zaokrąglenia oraz z powrotem konwersje do stringa żeby zapisać do pliku

zwróć uwagę na wykaz modułów w sekcji uses

Pozdrawiam

Załączniki:

unit1.rar (1.86 KB) Musisz być zalogowany, aby pobrać ten załącznik.

Promuję tematy:
07.10.2021 Joystick - Arcade Stick do Commodore lub Amiga
19.06.2020 Nowe życie dla QuickShot - python 1m

maciekm7 · Answer

A mógłby ktoś wytłumaczyć w jaki sposób zastosować w moim programie tą funkcje

Zaloguj się, aby zobaczyć kod

??
Aha i mam jeszcze jedno pytanie: Dlaczego gdy z pliku czytałem tylko jedną macierz oznaczoną jako q[i,i] bedącą wynikiem przekształceń wszystko działało a teraz gdy usiłuje zczytac macierze oznaczone jako a[i,j] i x[i,i] to program nie potrafi tego zrobić??

blue_17 · Answer

1. Przekonwertuj przy odczycie z pliku 2. Prawdopodobnie albo źle masz coś z iterowanymi zmiennymi lub źle poruszasz się po pliku Nie pokazujesz nawet struktury pliku z wartościami macierzy Ja proponował bym Ci coś takiego rozwiązanie dostałeś ode mnie już na tacy Taki program w tej chwili program skrobnął konsolowo w C, ale to chyba dlatego że tam jest prostsza obsługa plików wejścia ale jak kto woli

maciekm7 · Answer

Witam
Udało mi się stworzyc program w vcl, lecz niestety nie potrafie przetwożyć wartości liczbowych odczytanych z dwóch stringgridów.Wartości te po dokonaniu obliczeń chcialbym umieścić w stringgrid3. Oto kod odpowiedzialny za to :

Zaloguj się, aby zobaczyć kod

po odpaleniu programu i wywołaniu procedury która powinna obliczyć równanie wyskakuje błąd :Project project1.exe raised exception class EAccessViolation with message 'Access violaton at Address 0047FD5 in module Project1.exe. Read at address 00000004. Process stopped. Use step or run to continue. W jaki sposób moge zlikwidować ten błąd??

Jak zapisać i odczytać wyniki do pliku w Delphi dla metody Gaussa?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Podsumowanie tematu