Memo.lines.Count - określa ile jest linii Memo1.Lines.Delete(numer) - kasuje linie o numerze numer Z tego wynika że Memo.Lines.Delete(Memo.Lines.Count-1) - kasuje ostatnią linie. Dlaczego -1 ponieważ indeksy liczone są od wartości 0 czyli linia 1 - index 0, linia 2 -index 1, natomiast Count zwraca ilość linii czyli 1 linia, 2 linie oczywiście przydało...
nie takie trudne :P procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to memo1.lines.count - 1 do begin if (pos(edit1.text, memo1.lines.strings[i]) > 0) then begin edit2.text := memo1.lines.strings[i]; break; end; end; end;
while Memo1.Lines.Count > 10 do Memo1.Lines.Delete(0);
Coś kiepsko szukałeś ;-) Memo1.lines.strings[x] - pojedyncza linia z Memo (x określa numer linii) memo1.lines.count - ilość linii Reszta to już podstawy (edycja stringu)
Z helpa borlanda: procedure TForm1.Button1Click(Sender: TObject); var r: TRect; i: Integer; begin with Printer do begin r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200)); BeginDoc; Canvas.Brush.Style := bsClear; for i := 0 to Memo1.Lines.Count do Canvas.TextOut(200,200 + (i * Canvas.TextHeight(Memo1.Lines.String...
Witam, 1.Dodanie zakładki: TabbedNotepad1.Pages.Add(NazwaStrony); 2.Usunięcie zakładki: TabbedNotepad.Pages.Delete(NumerZakładki... 3.Ograniczenie ilości linii (np.): if Memo1.Lines.Count<=24 then ... 4.Ograniczenie długości linii (np.): Memo1.Lines.Add(Copy(strLinia,1,80)); Odnośnie 3 i 4 sposób zależy od tego jak jest wypełniane pole Memo.
Poprawiłem, begin i end mi się zawieruszył :) Jak chcesz podmienić tekst, to zapisuj ten zakodowany teksy nie do memo2 tylko do memo1. procedure TForm1.Button1Click(Sender: TObject); var s : ansistring; i,j : integer; begin for i := 0 to Memo1.Lines.Count-1 do begin // !!!! s := memo1.Lines[i]; for j := 1 to Length(s)...
Jeszcze raz przetestowałem procedurę. Według mnie działa. Wczytuje wiadomości z serwera. W Memo1 umieszcza informacje od kogo przyszła wiadomość, zamieszcza jej treść. Jeżeli u Ciebie nie wyświetla treści wiadomości, to pewnie dlatego, że są one puste (nie mają treści) :D. Poniżej kod, w którym dodałem opcje wyświetlania tytułu wiadomości. procedure...
Uczysz się jednak C++ Buildera. Do powyższego kodu potrzebujesz również komponentu z karty Dialogs- SaveDialog. Linijkę - [syntax=c]Memo1->Lines=czasek;[/syntax] konwertujesz na format AnsiString lub nowszy UnicodeString: [syntax=c]Memo1->Text=AnsiString(czasek)... Zawartosc Memo1 zapisujesz wykorzystujac wlasnie SaveDialog: [syntax=c]if(SaveDialog1->Execute())...
Wczytujesz hex do komponentu memo1 (musi mieć zaznaczoną opcję WordWrap=False żeby nie zawijał tekstu) wysłanie przez komponent Cport for i := 0 to Memo1.Lines.Count - 1 do begin st := Memo1.Lines.Strings[i]; If length(st) > 0 then begin st := st + #13; ComPort1.WriteStr(st); delay(400); // moja procedura...
[syntax=delphi]procedure TForm1.Button3Click(Sender: TObject); var TF : TextFile; i : Integer; begin AssignFile(TF,extractfilepath(applicatio... ); // tu nie powinno być '\dane.txt' ? bo nie pamiętam try Rewrite(TF); i:= -2; repeat inc( i, 2 ); // i:= i +2; Writeln(TF, Memo1.Lines[i]); until i>= Memo1.Lines.Count -1 showmessage('Zapisano...
Form1->Memo1->Lines->Add((AnsiString)htt...
Niech ma: procedure TForm1.Button1Click(Sender: TObject); var Petla: char; Kod1: byte; Kod2: byte; begin with Memo1.Lines do Clear; for Petla:='A' to 'Z' do begin Kod1:=Byte(Petla); Kod2:=Ord(Petla); with Memo1.Lines do Add(Format('''%s'' %d %d',[Petla,Kod1,Kod2])); end; end;...
Witam Zobacz to: for(int i=0; i<10; i++) { Tab[i]=inttostr(memo1->li... }
Jeśli to tylko literka zawsze na pierwszym miejscu... [syntax=delphi] litera := dana[1]; Delete(dana, 1, 1); case litera of 'a': Memo1.Lines.Add(dana); 'b': Memo2.Lines.Add(dana); end;[/syntax] ...czyli jeśli chcesz na podstawie 1 znaku coś zrobić, to go wyciągnij sobie do zmiennej, potem usuń z pierwotnej i operuj.
na czystej formie wstaw Edit1, Memo1, Buton1 i Image1 unit Unit1; interface uses JPEG, // <<------------------ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; procedure TForm1.Button1Click(Sender: TObject); var bmp:TBitmap; NazwaPliku:String; SciezkaDostepu:String;...
Witam! Tak nie będzie działać. Wczytujesz Count(nie zawsze musi być 1) bajtów do zmiennej która jest pojedyńczym bajtem. [syntax=delphi] for i:=1 to Count do begin ComPort1.Read(z,1); Memo1.Lines.Add('0x'+IntToHex(z,2); end;[/syntax]
jak zrobisz Memo1->Lines-> i analogicznie myśląc wpisujesz SaveToFile a najprościej w takich przypadkach użyć google.pl -> "c++ builder memo zapisywanie do pliku" pozdrawiam Thorr
Na przykład w zdarzeniu OnCreate dla formy. Kliknij 2x w okno formy w miejscu gdzie nie ma żadnego komponentu, otworzy się kod tego zdarzenia, tam wpisz Memo1.Lines.Clear; Za chwilę wpadnie tu moderator i skasuje cały temat za brak inicjatywy.
Wstaw sobie na forme komponent SaveDialog z zakladki Dialogs i uzywaj if SaveDialog1.Execute then // wtedy w SaveDialog1.FileName masz nazwe pliku do zapisania czyli mozesz zrobic tak: if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.F... Pozdrawiam!
void __fastcall TForm1::Zakoduj1Click(TObject *Sender) { AnsiString text = Memo1->Lines->Text; // zakoduj do base64 //AnsiString b64enc = base64(text.c_str(), text.Length(), 0); int flen;//dlugosc zwruconego textu char *b64enc=base64(text.c_str(), text.Length(), &flen); // koniec kodowania Memo1->Text = b64enc; free(b64enc); // zaalokowane przez malloc...
Witam. Lepiej zrób tak jak radzi kolega Dżyszla: TStringList. Kod dużo się nie zmieni, a będzie działać szybciej i wyglądać bardziej profesjonalnie. Pozdrawiam! Bym umiał to bym zrobił, jednak jestem na podstawowym poziomie i ze wszystkim się męczę po 15 godzin dziennie. Dobra, wykminiłem coś takiego. Pobiera mi adresy email które są w notatniku (w...
nie wiem jak działa instanceof w javie ale przechowywanie referencji do innych obiektów czy klas to żaden problem. Deklarujesz sobie jakikolwiek obiekt, który zawiera tablicę wskaźników nawet typu Pointer. W najprostszym z możliwych przypadków bierzesz sobie zwykłą i popularną StringList'ę. Można w niej przechowywać zarówno stringi jak i liczby (wielkości...
Dobra, bo zmykam spać... procedure load(const name:string; const aMemo: TMemo); var linia: String; begin if not FileExists(name) then begin MessageDlg('Nie ma pliku',mtWarning, [mbOk], 0); end else begin assignfile(plik,name); {$I-} //wyłączamy programowe sprawdzanie I/O reset(plik);...
Witam. Ściągnij sobie komponent comport. Na forme wstaw 2 x memo, 1 x edit, 3 x buton i comport. 'button1 do łączenia i rozłączenia 'button2 do wysyłania 'button3 do ustawienia portu 'edit1 do wpisania tekstu jaki chcesz wysłać 'memo1 do odebrania tekstu 'memo2 do "pomocy" ustawione jako niewidoczne 'zdarzenie do ustawienia portu procedure TForm1.Button3Click(Sender:...
Zrobilem Ci na StringGridzie, szybciej bedzie niz na Editach. Po kolei: zadeklaruj sobie 2 zmienne globalne: AnsiString para; int poz=10; pierwsza do przechowywania jednej z 17 par z pojedynczego wiersza, potem pozycja w AnsiStringu naszej pary. (na samej górze przed funkcjami) To pewnie juz wiesz ale zebys nie przeoczył to napisze po kolei: Na formatce...
Witam, Żeby skasowć wybraną linię i przeniesć kursor na koniec linii poprzedniej można wykorzystać np. taką konstrukcję: Memo1.Lines.Delete(n); Memo1.Lines[n-1]:=Copy(Memo1.Lines[n-1],... Memo1.SetFocus; Pozdrawiam O tym co powyżej zapomnij, bo trzeba skasowany znak (#10) uzupełnić. Co do całości Twojego postu spróbuj czegoś...
Pozwolę sobie otworzyć temat i może odrobinkę Ci pomóc. Przeanalizuj taki kod : [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSamochod = class(TObject) nazwa : string; opis : string; end; TForm1 = class(TForm) ListBox1: TListBox; Label1: TLabel; Button1: TButton; Memo1:...
Memo1->Lines->Text=Memo1->Lines->Text+li... popraw na Memo1->Lines->Text=Memo1->Lines->Text+ci...
atom1477: Juz chyba wiem o co chodzi.. UserID jest w INDY 8 (i wczesniejsze wersje tj. Winshoes). A tu troche sie inaczej to obsluguje.. przynajmniej z tego co pamietam bo wygrzebalem w czelusciach swojego dysku moj stary programik do sprwdzania poczty, ktory dzialal na Winshoes.. troszke go przerobilem do Indy 8 i tak: na formie: Msg: TIdMessage;...
Witam, Z pliku do Memo: Memo1.Lines.LoadFromFile('ścieżka'); Z tym, że drugi plik (jeżeli taki będzie czytany) przykryje pierwszy. Wobec czego, jeżeli dobrze odczytuję intencje, lepiej zrobić tak jak w poście powyżej, a do memo ładować poprzez Memo1.Lines.Add(Linia z pliku); Pozdrawiam
1. Zrób nową formę. 2. Wstaw na formę 3 Edit-y. (Edit1, Edit2, Edit3) 3. Wstaw na formę 1 Memo. (Memo1) 4. Wstawiasz jeden przycisk. (Button1) 5. Zmodyfikuj swoją procedurę liczącą w ten sposób : [syntax=delphi]procedure P(var A: string; B: string; R : integer); //zmiana var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then...
Witam. Potrzebuję napisać pętlę, która będzie działała w taki sposób, że warunkiem zakończenia jest iloraz dwóch wartości z pól edit. Dodatkowo, jeśli ten iloraz jest ułamkiem to musi być zaokrąglony w górę. Np jeśli edit1 ma wpisane 7, a edit2 3, to iloraz jest 2. Czyli musi zaokrąglić do 3. Coś w stylu: Begin ilosc:= (floattostr(strtofloat(Form2.Edit2.Text)...
prubowałem Serio? A jak się "prubuje"? [syntax=delphi]for x:=0 to memo1.lines.count-1 do begin if trim(memo1.lines.Strings[x])<>'' then chart1.Series[0].Add(StrToFloat(memo1.li... end;[/syntax]
Nie wiem po co tobie te delay. Przecież mówisz w tym miejscu programowi zatrzymaj się na 200ms . W tym czasie program nie robi NIC . Natomiast dodawanie wyniku np. do komponentu Memo brzmi Memo1.Lines.Add := IntToStr (x) a o resztę marwi się program. Czyli można by napisać następująco: Procedure xxx var x : integer; begin Memo1.Lines.Clear; // czyścimy...
Cześć. Wykombinowałem coś takiego: void __fastcall TMainForm::CreateMDIChild(String Name) { TMDIChild *Child; //--- create a new MDI child window ---- Child = new TMDIChild(Application); Child->Caption = Name; if (FileExists (Name)) Child->Memo1->Lines->LoadFromFi... unsigned char InputData[512]; unsigned char b; int i,j; Child->Memo1->Lines->Text...
Weź działania w nawias. Kod Delphi - [rozwiń] var e,f: Double; begin [b]if (5*(30/360)) = (5/12)[/b] then Memo1.Lines.Add('test porównania: True') else Memo1.Lines.Add('test porównania: False'); e := 5*(30/360); f := 5/12; if e = f then Memo1.Lines.Add('test...
Witam. Tworząc program zawiesiłem się na odczycie z com. Mikroprocesor odczytuje dane z akcelerometru i wysyła je do PC. I tu zaczyna się problem. Używam komponentu comport. Dana jest odbierana tylko raz, jakby zamroziło odczytywanie. [syntax=delphi]ComPort1.Readstr(Str,coun... memo1.Text:=memo1.Text+str; for x:=0 to memo1.lines.count-1 do chart1.Series[0].Add(StrToFloat(memo1.li...
Przerobiłem kawałek kodu na: memo1.Lines.text:=IdDecoderMIME1.Dec... memo1.Lines.SaveToStream(f); f.Position := 0; image1.Picture.Graphic.LoadFromStream... w memo1 pojawia mi się rozkodowany nagłówek obrazka -typ obrazka np gif89 lub png, ale błąd mam gdzieś przy nagraniu stringa do strumienia...
Co do pierwszego pytania to jak coś chcesz dodać do memo to dodajesz przez: for i := 0 to 10 do begin wynik:=w(i,Startx,Starty); memo1.Lines.Add(FloatToStr(wynik... end; Jeśli chodzi o 2 pytanie to dobrze jest. Co do 3. Wszystko działa dopóki dodaje się pliki, które zawierają więcej wierszy niż poprzednie Pamiętaj ,że...
To zależy czy z powtórzeniami czy beż powtórzeń do tego dodaj sobie kombinacje plusa i minus. Jak się okazuje to kombinacji może być nawet powyżej setki. zrobiłem ci coś takiego: var a,b,c: char; znakA, znakB: char; begin znakA:= '+'; znakB:= '-'; for a:= #65 to #67 do for b:= #65 to #67 do for c:= #65 to #67 do begin Memo1.Lines.Add(a+znakA+b+znakA+c...
Z zapisem tekstu wielolinijkowego do pliku INI już sobie poradziłem, poniżej zamieszczam przykład, jakby ktoś miał z tym problemy: procedure TForm1.Button1Click(Sender: TObject); //Po kliknięciu na przycisk zapisu var I: integer; ciag: string; begin linie := memo1.Lines.Count; ciag := ''; For I := 0 to linie -1 do ciag...
Tak może być ? Skro self są zbędne to jak to zrobić bez nich ? [syntax=delphi] prostokat = class private // prywatna deklaracja, dostepna z wnetrza klasy a,b : integer; function pole_licz:integer; function obwod:integer; public // publiczne deklaracje, dostepna w calym programie constructor tworz(a, b:integer); //deklaracja funkcji konstruktora procedure...
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1...
Nie wiem czy Memo1.lines to prawidowa wartość może nStart:=Pos(lowerCase(FindDi...
Dalej aplikacja się nie zamyka. Grrr. Dodałem coś takiego: [syntax=delphi]Form1.Memo1.Lines.Add('tu... Form1.Close; Form1.Memo1.Lines.Add('tuu2');[/syntax] To dodaje "tuu1" do Memo. Czyli Form1.Close się wykonuje. Ale program dalej się nie zamyka. :(
Ad1)Połóż na formie Memo na formie i Memo1->Lines->LoadFromFile(""); Memo1->Clear(); Memo1->Lines->SaveToFile(); Ad2) char *A=Edit1->Text.c_str(); Ad3)Nie rozumie pytania.
Uruchom taki kod : E.ErrorCode lub IdHTTP1.ResponseCode , już sobie chyba poradzisz :P
void __fastcall TForm1::Button3Click(TObject *Sender) { double tabt[1000],tab3[6]; long double tab2[6]; for(int i = 0 ; i < 6 ; i++) { tab2[i] = 0; tab3[i] = 0; } for(int i = 0 ; i < 1000 ; i++) tabt[i] = RandG(Edit1->Text.ToDouble(&#...
(at)lanky [syntax=delphi] SetLength(tab,ogonek-1); // 0,1,2 .. .. Memo1.Lines.Add(wylosowana); [/syntax][/quote] niestety nie mialem jeszcze funkcji SetLenght i gosc sie przyczepi, mozesz mi jeszcze powiedziec do czego sluzy: [syntax=pascal]Memo1.Lines.Add(wylosowan...
phone lines vertical lines between lines
amica usterka odpalić wymian akumulator polar wymiana pralka
uszkodzone lifepo4 behringer b215xl
Instrukcja serwisowa do drukarki Epson L1210 - gdzie znaleźć? Potencjometr 50KB 270° - gdzie kupić i specyfikacja
