Ĺadny brzuch
mam plik tekstowy dane.txt i tekst w drugiej linijce podpis:
1. jaki kod muszę wstawić aby po kliknieciu na button w richedit wstawiłmi się tekst znajdujący się w dane.txt w drugiej linijce
2. jak wczytać do edit1 zawartość dane.txt w drugiej linijce
3. jak zrobić aby po zmienieniu zawartości edit1 i kliknięciu na inny button zamienił mi się napis w dane.txt w drugiej linijce na inny???
1.
procedure Tform1.wstaw; var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt); RichEdit1.Lines.Add(sl[1]); sl.Free; end;
2.
procedure Tform1.EditWczytaj; var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt'); edit1.text := sl[1]; sl.Free; end;
3.
procedure Tform1.Button1Click(Sender: TObject); var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt); sl[1] := edit1.text; sl.SaveToFile('Dane.txt'); sl.Free; end;
Użytkownik pat edytował ten post 06 luty 2007, 12:18
przepraszam z apomyłkę nie chodziło mi o wyswietlenie tego w richedit tylko w edit1. a gdzie te kody mam wstawić w form create???
W takim przypadku tytlko prost modyfikacja 1.
procedure Tform1.wstaw; var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt); edit1.text := sl[1]; sl.Free; end;
A wtedy jest to samo co 2....
A wstawiasz kody wtedy, kiedy chcesz zrobić tą procedure. Chcesz aby wczytywało się podczasu uruchamiani programu??? Proszę bardzo dajesz ten kod w zdarzeniu Tform1.FormCreate. Chcesz aby sie wczytywało gdy sie kliknie na przycisk? Dajesz to w zdarzeniu onclick buttona. I wiso
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile('Dane.txt);
RichEdit1.Lines.Add(sl[1]);
sl.Free;
end;
a jak tutaj zrobić aby ten tekst nie był wstawiany od nowej linijki tlyko od miejsca gdzie znajduje się kursor // za wcześniejszą odpowiedz serdecznie dziękuje
Moze jest taka procedura, ale napisałem własną
procedure TForm1.wstawmiedzykursor(var re: TRichEdit; Text: string);var s, koncStr: string; len, i, dlpolowy: integer; PozStart: integer; begin s := re.Lines[re.CaretPos.Y]; len := length(s); if len <> 0 then begin PozStart := re.CaretPos.X; koncStr := '';dlpolowy := 0; for i := 1 to pozstart do begin koncStr := koncStr + s[i]; inc(dlpolowy); end; koncStr := koncStr + text; for i := dlpolowy+1 to len do begin koncStr := koncStr + s[i]; end; end else koncstr := text; re.Lines[re.CaretPos.Y] := koncstr; end;
i dajesz w sekcji public:
procedure wstawmiedzykursor(var re: TRichEdit; Text: string);
Uruchamiasz np:
wstaw(RichEdit1, Edit1.text);
Edit://
var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt); wstawmiedzykursor(RichEdit1, sl[1]); sl.Free; end;
Tak powinna wyglądać całość.
Użytkownik pat edytował ten post 06 luty 2007, 15:54
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1. jaki kod muszę wstawić aby po kliknieciu na button w richedit wstawiłmi się tekst znajdujący się w dane.txt w drugiej linijce
2. jak wczytać do edit1 zawartość dane.txt w drugiej linijce
3. jak zrobić aby po zmienieniu zawartości edit1 i kliknięciu na inny button zamienił mi się napis w dane.txt w drugiej linijce na inny???
1.
procedure Tform1.wstaw; var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt); RichEdit1.Lines.Add(sl[1]); sl.Free; end;
2.
procedure Tform1.EditWczytaj; var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt'); edit1.text := sl[1]; sl.Free; end;
3.
procedure Tform1.Button1Click(Sender: TObject); var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt); sl[1] := edit1.text; sl.SaveToFile('Dane.txt'); sl.Free; end;
Użytkownik pat edytował ten post 06 luty 2007, 12:18
przepraszam z apomyłkę nie chodziło mi o wyswietlenie tego w richedit tylko w edit1. a gdzie te kody mam wstawić w form create???
W takim przypadku tytlko prost modyfikacja 1.
procedure Tform1.wstaw; var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt); edit1.text := sl[1]; sl.Free; end;
A wtedy jest to samo co 2....
A wstawiasz kody wtedy, kiedy chcesz zrobić tą procedure. Chcesz aby wczytywało się podczasu uruchamiani programu??? Proszę bardzo dajesz ten kod w zdarzeniu Tform1.FormCreate. Chcesz aby sie wczytywało gdy sie kliknie na przycisk? Dajesz to w zdarzeniu onclick buttona. I wiso
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile('Dane.txt);
RichEdit1.Lines.Add(sl[1]);
sl.Free;
end;
a jak tutaj zrobić aby ten tekst nie był wstawiany od nowej linijki tlyko od miejsca gdzie znajduje się kursor // za wcześniejszą odpowiedz serdecznie dziękuje
Moze jest taka procedura, ale napisałem własną
procedure TForm1.wstawmiedzykursor(var re: TRichEdit; Text: string);var s, koncStr: string; len, i, dlpolowy: integer; PozStart: integer; begin s := re.Lines[re.CaretPos.Y]; len := length(s); if len <> 0 then begin PozStart := re.CaretPos.X; koncStr := '';dlpolowy := 0; for i := 1 to pozstart do begin koncStr := koncStr + s[i]; inc(dlpolowy); end; koncStr := koncStr + text; for i := dlpolowy+1 to len do begin koncStr := koncStr + s[i]; end; end else koncstr := text; re.Lines[re.CaretPos.Y] := koncstr; end;
i dajesz w sekcji public:
procedure wstawmiedzykursor(var re: TRichEdit; Text: string);
Uruchamiasz np:
wstaw(RichEdit1, Edit1.text);
Edit://
var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('Dane.txt); wstawmiedzykursor(RichEdit1, sl[1]); sl.Free; end;
Tak powinna wyglądać całość.
Użytkownik pat edytował ten post 06 luty 2007, 15:54