witam
pisze na uczelnie program w pascalu obiektowym ktora ma wpisywac dane do pliku txt(bazy danych) i wyswietlac je. Zarowno zapisywanie jak i wyswietlanie dziala bez zarzutu dopoki w Memo gdzie wyswietlam plik nic sie nie znajduje. Gdy cos juz tam jest to program wyrzuca blad i wskazuje ze blad jest w Write(plik,Edit1.Text+''); takiej oto linijce ktora odpowiada za dodawanie tekstu znajdujacego sie w kombonencie Edit1 do pliku. Dlaczego tak sie dzieje??
Prosze o pomoc
- Rejestracja:ponad 11 lat
- Ostatnio:prawie 9 lat
- Postów:57
0
edytowany 1x, ostatnio: olesio
- Rejestracja:ponad 13 lat
- Ostatnio:około 3 godziny
- Lokalizacja:Tuchów
- Postów:12167
0
Pokaż cały kod zapisu i odczytu do i z pliku jeśli momy pomóc, bo z opisu raczej nic nie wynika (no może to, że "dziwna sprawa"); A tak poza tym to najprawdopodobniej wystarczyłoby podać komunikat błędu, który wyjaśniłby istniejący problem.
edytowany 3x, ostatnio: flowCRANE
- Rejestracja:ponad 11 lat
- Ostatnio:prawie 9 lat
- Postów:57
0
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
PairSplitter, ValEdit, ComCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
ListBox1: TListBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
plik:Text;
tekst:String;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(plik,'C:\Users\David\Desktop\projekt WDP\baza.txt');
Append(plik);
Write(plik,Edit1.Text+'');
Write(plik,Edit2.Text+'');
if (RadioButton1.Checked=true) then
{
write(plik,'Kobieta'+'');
}
else
write(plik,'Mężczyzna'+'');
write(plik,Edit4.Text+'');
write(plik,Edit5.Text+'');
writeln(plik,'ur. w '+Edit3.Text+' roku');
CloseFile(plik);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
ListBox1.Refresh;
Button3.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close();
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
AssignFile(plik,'C:\Users\David\Desktop\projekt WDP\baza.txt');
reset(plik);
while not EOF(plik)=true do
begin
readln(plik,tekst);
ListBox1.Items.Add(tekst);
end;
Button3.Enabled:=false;
end;
end.
oto kod calej aplikacji
a to jest blad:
przycięcie obrazka + dodanie go do załączników posta - fp
- 76349309210564972439.png (6 KB) - ściągnięć: 160
edytowany 3x, ostatnio: flowCRANE
- Rejestracja:ponad 11 lat
- Ostatnio:prawie 9 lat
- Postów:57
0
problem rozwiazany wszystko ladnie wyswietla
teraz jakbyscie mogli mi podpowiedziec jak zrobic takie cos
bo musze jeszcze wyszukiwac osoby np wg nazwiska
i wymyslilem ze po prostu tam wyszukiwanie
jesli taki tekst jaki podalem znajduje sie to program wyswietla ta linijke
tylko nie mam pomyslu jak zrobic zeby wyswietlal linijke w ktorej znajduje sie szukany tekst
prosze o pomoc
- Rejestracja:prawie 21 lat
- Ostatnio:5 miesięcy
0
Mogą się do tego przydać któreś z tych funkcji Łańcuchy zwłaszcza Pos.
IMO zawaliłeś, że zapisujesz wszystko w jednej linijce bez separatorów - ciekawe jak odróżnisz, Jana sobieskiego zamieszkałego w Warszawie od Andrzeja Kowalskiego zamieszkałego na ul. Jana Pawła II przy szukaniu frazy "Jan"?
- Rejestracja:prawie 21 lat
- Ostatnio:5 miesięcy
0
Zgadza się ale jak odróżnisz czy masz do czynienia z imieniem czy np. nazwą ulicy? Tego nie wiesz bo tracisz tą informację przy zapisie nie rozdzielając jakimś separatorem np. średnikiem poszczególnych danych osobowych.
Mógłbyś użyć ExtractStrings do rozdzielenia poszczególnych danych osobowych.
- Rejestracja:ponad 13 lat
- Ostatnio:około 3 godziny
- Lokalizacja:Tuchów
- Postów:12167
0
@dawid1110 - jeden problem - jeden wątek; Teraz zaczniesz pytać o zupełnie inne rzeczy, niż opisane są w tytule wątku i pierwszym poście, przez co zmylisz użytkowników;
Poza tym wątek dotyczy typowych podstaw, więc przenoszę do działu dla początkujących.
edytowany 2x, ostatnio: flowCRANE
- Rejestracja:ponad 13 lat
- Ostatnio:około 3 godziny
- Lokalizacja:Tuchów
- Postów:12167
0
Możesz to uczynić nie przez poruszanie różnych problemów w jednym wątku, a przez wzięcie w swoje ręce kursu programowania, w którym dowiesz się róznych przydatnych rzeczy, a także dokumentacji opisujących procedury i funkcje; Również kombinowanie we własnym zakresie i testowanie różnych rozwiązań jest jak najbardziej zalecane.
- Rejestracja:około 13 lat
- Ostatnio:2 miesiące
- Lokalizacja:Łódź
- Postów:648
0
@dawid1110 proponuje nawet nie zaprzęgać google do szukania ale wystarczy, że wpiszesz w wyszukiwarce na forum "Zapisywanie rekordów do pliku pascal" i dostaniesz milion linków do miliarda gotowców.