Ĺadny brzuch
mam taki problem ukończyłem pisać edytor tekstu, została mi tylko jeszcze jedna funkcja mam taki kod do funkcji "Zapisz jako" :
procedure TForm1.Zapiszjako1Click(Sender: TObject); begin if not SaveDialog1.Execute then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(SaveDialog1.FileName); plik:=SaveDialog1.FileName; end;
i pozostało mi przerobienie tego kodu na drugą funkcję "Zapisz" tylko nie moge coś go przerobić ponieważ nie wiem za bardzo jak to zrobić czy mógłby kotś mi pomóc. Nie wiem czy to coś da ale kod do tworzenia nowego pliku i otwierania wygląda tak:
otwieranie:
var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w ' +ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; if not OpenDialog1.Execute then Exit; RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName (OpenDialog1.FileName); plik:=OpenDialog1.FileName; RichEdit1.Modified := False;
tworzenie nowego pliku
var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w '+ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; RichEdit1.Clear; Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='Nowy Dokument';
Z góry dziękuje
mam taki problem ukończyłem pisać edytor tekstu, została mi tylko jeszcze jedna funkcja mam taki kod do funkcji "Zapisz jako" :
procedure TForm1.Zapiszjako1Click(Sender: TObject); begin if not SaveDialog1.Execute then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(SaveDialog1.FileName); plik:=SaveDialog1.FileName; end;
i pozostało mi przerobienie tego kodu na drugą funkcję "Zapisz" tylko nie moge coś go przerobić ponieważ nie wiem za bardzo jak to zrobić czy mógłby kotś mi pomóc. Nie wiem czy to coś da ale kod do tworzenia nowego pliku i otwierania wygląda tak:
if plik <>'' then
RichEdit1.Lines.SaveToFile(plik);
A zapisz jako też masz tak triochę nieelegancko. Zrób tak:
if SaveDialog1.Execute then
begin
plik:=SaveDialog1.FileName;
RichEdit1.Lines.SaveToFile(plik);
Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(Plik);
end;
Użytkownik statjacek edytował ten post 28 luty 2007, 14:52
Super działa dziękuje bardzo. mam jeszcze jedno malutkiepytanie co dodać do kodu zapisz aby jeżeli plik nie został wczesniej zapisany lub nie istnieje to żeby zostałą wywołana funkcja zapisywania?
Nie wiem, czy o to chodzi, ale może pomoże ;)
var sl: TStringList; begin sl := TStringList.Create; try if (fileexists('nazwapliku')) then begin sl.Lines.LoadFromFile('nazwapliku); if (not (sl.Text = RichEdit1.Lines.Text)) then PROCEDURA_ZAPISZ(); end else PROCEDURA_ZAPISZ_JAKO(); finally sl.Free; end; end;
Użytkownik DJ_ProG edytował ten post 28 luty 2007, 15:38
Super działa dziękuje bardzo. mam jeszcze jedno malutkiepytanie co dodać do kodu zapisz aby jeżeli plik nie został wczesniej zapisany lub nie istnieje to żeby zostałą wywołana funkcja zapisywania?
if plik <>'' then
RichEdit1.Lines.SaveToFile(plik)
else
Zapiszjako1Click(Sender);
Użytkownik statjacek edytował ten post 28 luty 2007, 16:04
statjacek nie do końca trak. Co jeśli plik został zapisany a użytkownik skasuje tekst i chce zapisać zmiany? Można równie prosto:
if ((Richedit1.Modified) and (not FileExists(plik))) then //jesli richedit został zmodyfikowany i plik nie istnieje WYWOŁANIE_FUNKCJI_ZAPISZ;
Przy zapisywaniu pliku (zarówno zapisz jako i zwykłym zapisywaniu) dodaj:
RichEdit1.Modified := False;
Dzięki temu sprawdzając warunkiem
if (Richedit1.Modified) then
będziesz wiedział, czy użytkownik wprowadził jakakolwiek zmianę do tekstu.
Użytkownik p1101 edytował ten post 28 luty 2007, 16:50
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure TForm1.Zapiszjako1Click(Sender: TObject); begin if not SaveDialog1.Execute then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(SaveDialog1.FileName); plik:=SaveDialog1.FileName; end;
i pozostało mi przerobienie tego kodu na drugą funkcję "Zapisz" tylko nie moge coś go przerobić ponieważ nie wiem za bardzo jak to zrobić czy mógłby kotś mi pomóc. Nie wiem czy to coś da ale kod do tworzenia nowego pliku i otwierania wygląda tak:
otwieranie:
var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w ' +ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; if not OpenDialog1.Execute then Exit; RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName (OpenDialog1.FileName); plik:=OpenDialog1.FileName; RichEdit1.Modified := False;
tworzenie nowego pliku
var odp:Integer; A: array[0..256] of Char; begin if RichEdit1.Modified = True then begin StrPCopy(A, 'Zapisać zmiany w '+ExtractFileName(plik)+'?'); odp:= Application.MessageBox(A,'Fast Text 1.3.2', MB_YESNOCANCEL+MB_ICONWARNING); if odp = IDYES then Zapiszjako1Click(Sender); if odp = IDCANCEL then Exit; end; RichEdit1.Clear; Form1.Caption := 'Fast Text 1.3.2 - Nowy Dokument'; plik:='Nowy Dokument';
Z góry dziękuje
mam taki problem ukończyłem pisać edytor tekstu, została mi tylko jeszcze jedna funkcja mam taki kod do funkcji "Zapisz jako" :
procedure TForm1.Zapiszjako1Click(Sender: TObject); begin if not SaveDialog1.Execute then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(SaveDialog1.FileName); plik:=SaveDialog1.FileName; end;
i pozostało mi przerobienie tego kodu na drugą funkcję "Zapisz" tylko nie moge coś go przerobić ponieważ nie wiem za bardzo jak to zrobić czy mógłby kotś mi pomóc. Nie wiem czy to coś da ale kod do tworzenia nowego pliku i otwierania wygląda tak:
if plik <>'' then
RichEdit1.Lines.SaveToFile(plik);
A zapisz jako też masz tak triochę nieelegancko. Zrób tak:
if SaveDialog1.Execute then
begin
plik:=SaveDialog1.FileName;
RichEdit1.Lines.SaveToFile(plik);
Form1.Caption := 'Fast Text 1.3.2 - '+ExtractFileName(Plik);
end;
Użytkownik statjacek edytował ten post 28 luty 2007, 14:52
Super działa dziękuje bardzo. mam jeszcze jedno malutkiepytanie co dodać do kodu zapisz aby jeżeli plik nie został wczesniej zapisany lub nie istnieje to żeby zostałą wywołana funkcja zapisywania?
Nie wiem, czy o to chodzi, ale może pomoże ;)
var sl: TStringList; begin sl := TStringList.Create; try if (fileexists('nazwapliku')) then begin sl.Lines.LoadFromFile('nazwapliku); if (not (sl.Text = RichEdit1.Lines.Text)) then PROCEDURA_ZAPISZ(); end else PROCEDURA_ZAPISZ_JAKO(); finally sl.Free; end; end;
Użytkownik DJ_ProG edytował ten post 28 luty 2007, 15:38
Super działa dziękuje bardzo. mam jeszcze jedno malutkiepytanie co dodać do kodu zapisz aby jeżeli plik nie został wczesniej zapisany lub nie istnieje to żeby zostałą wywołana funkcja zapisywania?
if plik <>'' then
RichEdit1.Lines.SaveToFile(plik)
else
Zapiszjako1Click(Sender);
Użytkownik statjacek edytował ten post 28 luty 2007, 16:04
statjacek nie do końca trak. Co jeśli plik został zapisany a użytkownik skasuje tekst i chce zapisać zmiany? Można równie prosto:
if ((Richedit1.Modified) and (not FileExists(plik))) then //jesli richedit został zmodyfikowany i plik nie istnieje WYWOŁANIE_FUNKCJI_ZAPISZ;
Przy zapisywaniu pliku (zarówno zapisz jako i zwykłym zapisywaniu) dodaj:
RichEdit1.Modified := False;
Dzięki temu sprawdzając warunkiem
if (Richedit1.Modified) then
będziesz wiedział, czy użytkownik wprowadził jakakolwiek zmianę do tekstu.
Użytkownik p1101 edytował ten post 28 luty 2007, 16:50