Ĺadny brzuch
:(
Witam.
Mam takie dwa problemy.
1. Jak utworzyć nowy formularz lub zmodyfikować istniejący tak aby po uruchomieniu program otwierał się w pełnym oknie bez widocznego dolnego paska windowsa.
2. Jak zapisać do pliku zawartość tablicy dwu wymiarowej a następnie jak przepisać(odczytać) z tego pliku zawartość do tablicy??
Nie jestem specem od delphi więc proszę o w miarę prostą i wyczerpującą pomoc.
Z góry dziękuje.
Ad2 - Jakiej tablicy (statycznej czy dynamicznej) i czego (string, integer ...) ??
Ad2
Zmienne:
var NumRead, NumWritten: integer; plik: file
Chyba cos takiego:
assignfile(plik, 'C:\plik.tab'); rewrite(plik); BlockWrite(plik, tablica, NumRead, NumWritten); closefile(plik);
Wczytywanie:
assignfile(plik, 'C:\plik.tab'); rewrite(plik); BlockRead(plik, tablica, SizeOf(tablica), NumRead); closefile(plik);
PS. sry za ewentualne bledy, pisalem z pamieci wiec moga wystapic :P
Niestety coś jest nie tak z odczytem tego pliku. Zapisuje dobrze ale przy próbie odczytu wyskakuje błąd.
Niestety coś jest nie tak z odczytem tego pliku. Zapisuje dobrze ale przy próbie odczytu wyskakuje błąd.
Teraz wszystko działa.
Dziękuje !!!!
1.Borderstyle na bsNone i Window na Maximized
2.Możesz użyc funkcji explode:
procedure Explode(s: string; Dot: Char; var Buffer: TStringList); begin Buffer.Clear; while Pos(Dot, s) <> 0 do begin Buffer.Add(Copy(s, 1, Pos(Dot, s) - 1)); s := Copy(s, Pos(Dot, s) + 1, Length(s) - Pos(Dot, s)); end; if Length(s) = 0 then begin Buffer.Add(s); end; end; procedure TForm1.Button1Click(Sender: TObject); var Rec, Baza: TStringList; i: Integer; begin Baza := TStringList.Create; Rec := TStringList.Create; Baza.LoadFromFile('baza.txt'); for i := 0 to Baza.Count -1 do begin Explode(Baza[i], '|', Rec); Memo1.Lines.Add('Imie: ' + Rec[0]); Memo1.Lines.Add('Nazwisko: ' + Rec[1]); end; end; end.
W pliku baza.txt zapisujesz rzeczy w takiej postaci: cos|cos|cos chyba ze zmienisz znak w linijce 'Explode(Baza[i], '|', Rec);' na ';' ;) z zapisem do pliku chyba nie będziesz mial problemów bo wczesniej bylo to pokazane.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Witam.
Mam takie dwa problemy.
1. Jak utworzyć nowy formularz lub zmodyfikować istniejący tak aby po uruchomieniu program otwierał się w pełnym oknie bez widocznego dolnego paska windowsa.
2. Jak zapisać do pliku zawartość tablicy dwu wymiarowej a następnie jak przepisać(odczytać) z tego pliku zawartość do tablicy??
Nie jestem specem od delphi więc proszę o w miarę prostą i wyczerpującą pomoc.
Z góry dziękuje.
Ad2 - Jakiej tablicy (statycznej czy dynamicznej) i czego (string, integer ...) ??
Ad2
Zmienne:
var NumRead, NumWritten: integer; plik: file
Chyba cos takiego:
assignfile(plik, 'C:\plik.tab'); rewrite(plik); BlockWrite(plik, tablica, NumRead, NumWritten); closefile(plik);
Wczytywanie:
assignfile(plik, 'C:\plik.tab'); rewrite(plik); BlockRead(plik, tablica, SizeOf(tablica), NumRead); closefile(plik);
PS. sry za ewentualne bledy, pisalem z pamieci wiec moga wystapic :P
Niestety coś jest nie tak z odczytem tego pliku. Zapisuje dobrze ale przy próbie odczytu wyskakuje błąd.
Niestety coś jest nie tak z odczytem tego pliku. Zapisuje dobrze ale przy próbie odczytu wyskakuje błąd.
Teraz wszystko działa.
Dziękuje !!!!
1.Borderstyle na bsNone i Window na Maximized
2.Możesz użyc funkcji explode:
procedure Explode(s: string; Dot: Char; var Buffer: TStringList); begin Buffer.Clear; while Pos(Dot, s) <> 0 do begin Buffer.Add(Copy(s, 1, Pos(Dot, s) - 1)); s := Copy(s, Pos(Dot, s) + 1, Length(s) - Pos(Dot, s)); end; if Length(s) = 0 then begin Buffer.Add(s); end; end; procedure TForm1.Button1Click(Sender: TObject); var Rec, Baza: TStringList; i: Integer; begin Baza := TStringList.Create; Rec := TStringList.Create; Baza.LoadFromFile('baza.txt'); for i := 0 to Baza.Count -1 do begin Explode(Baza[i], '|', Rec); Memo1.Lines.Add('Imie: ' + Rec[0]); Memo1.Lines.Add('Nazwisko: ' + Rec[1]); end; end; end.
W pliku baza.txt zapisujesz rzeczy w takiej postaci: cos|cos|cos chyba ze zmienisz znak w linijce 'Explode(Baza[i], '|', Rec);' na ';' ;) z zapisem do pliku chyba nie będziesz mial problemów bo wczesniej bylo to pokazane.