Ponadto plik wypada zamknąć, gdy nie jest już potrzebny (CloseFile).
A te rekordy i zapis w pliku tekstowym to się trochę wykluczają. Dokladnie ! Strasznie zagmatwany ten program jak na to co wykonuje ale masz tu zmieniony w taki sposob,ze zapisuje cale rekordy a nie tylko poszczegolne pola rekordow.
Mam problem nie wiem jak wczytac w delphi dane z pliku txt do memo
Turbo Pascala to lepiej sobie odpuścić w zastosowaniach internetowych. Za dużo roboty by było :( Jeśli już - musisz po prostu napisać klienta FTP. W przypadku Delphi czy Free Pascala najlepiej będzie skorzystać z gotowców Indy.
Zamieszczam program napisany w Delphi (źródła + binaria), otwiera podaną stronę www, czeka 5 sekund i zamyka ją. Na życzenie mogę dodać opcje typu: wczytywanie z pliku adresu i czasu otworzenia, automatyczne otwieranie co jakiś czas adresu i jakieś ładniejszy interfejs :) Ew. coś innego, jeśli jest pomysł.
Witam, Wstaw na formę komponenty OpenDialog i SaveDialog. We właściwościach ustaw DefaultExt = txt i Filter =TextFile (*.txt)|*.txt. W procedurze zapisu zmień początek na: if SaveDialog1.Execute then AssignFile(f,SaveDialog1.FileName) else Exit; a DaneKlein.First; przenieś za Rewrite(f); a w procedurze wczytywania: if OpenDialog1.Execute then AssignFile(f,OpenDialog1.FileName)...
liczby są wczytywane z pliku ini i nie rozumiem "jakiego typu liczby? czy zawsze czytane po kolei?"
problem jest taki .... jak zrobic .. by zapisac plik o nazwie podanej przez uzytkownika w "edit" tzn chodzim i oto ze wpisuje mu nazwe pod jaka che miec plik klikam przycisk i on mi zapisuje plik pod taka nazwa jaka mu podalem w "edit" to jedno a drugie mam trzy pola edit .. co zrobic by w pliku zapisac te trzy wartosci z edit1 edit2 i edit3. a trzecie...
Witam, Jakich funkcji/komend użyć by wczytać z pliku dane (txt) i zapisać jako zmienne i na ich podstawie opracować wykres? :( Dane z pliku tekstowego to na przykład: 1 123 2 365 3 569 4 657 itd. Proszę bardzo o pomoc:( Poprawiłem temat. Zamykam.
Witam Was koledzy Otoz mam taki oto fragment kodu: procedure TForm8.Button1Click(Sender: TObject); var p: system.text; begin if SaveDialog1.Execute then begin System.Assign(p,SaveDialog1.FileName... try Append(p); except rewrite(p); end; write(p,Edit1.Text+';'); write(p,Edit2.Text+';'); write(p,Edit3.Text+';');...
Witam, mam program który działa na aktualnie używanym pliku, ma go wysłać na serwer. Oczywiście go nie wysyła, bo plik jest aktualnie używany. Ten kod za to odpowiada [syntax=delphi]Stream.AddFile('uploaded'... sciezka, 'multipart/form-data' ); IdHTTP1.Post( 'http://adres.pl/upload.php', Stream );[/syntax] Jak mogę rozwiązać ten problem? Czy mam kopiować...
Psze pracę magisterską i potrzebuje edytor hex asci ale by można było zaaładować i edytować dane 20mb prosze kogoś o wysłanie może jakiś komponent studiujena izk jak ładuje do napisanego przezemnie to nie dość że zawiesza się program podczas ładowania i po 2 min wyskakuje mi brak pamięci pomocy (nie chce zmieniać tematu pracy za dużo wkładu zrobiłem)...
Witam. Stworzyłem coś w rodzaju menu opcji wykonywanego programu. Program działa w zależności od ustaleń kilkunastu "parametrów". Każdy z tych parametrów jest wartością pola Checked na zaznaczone TCheckBox'y i TRadioButton'y. Chciałbym aby program jakoś zapisywał wybrane przez użytkownika "parametry" do pliku i ewentualnie wybrany plik konfiguracji...
Witam! Na jutro musze oddac prace a nie wiem jak rozwiazac ten problem! W Delphi mam plik tekstowy bez znaków końca linii i mam jakis wyraz w zmiennej i jak go wyszukac w tym pliku? Prosze o pomoc! Bardzo powazna sprawa! Czytanie z pliku wyglada tak: assignFile(hmmm,'tele.txt'); reset(hmmm); ile:=1; dlugosc:=1; repeat read(hmmm,czar); if czar=' ' then...
Witam. Problem zauważyłem dziś. Zapisuję dane do pliku w ten sposób: AssignFile(myFile, filename1); Append(myFile); WriteLn(myFile, char(scrollbar97.Position),char&... tu jeszcze 94 inne scrollbary); CloseFile(myFile); Wszystko działa ale niektóre wartości są zapisywane jako 2 a nie...
Witam :) Napisałem program w Delphi 6 pod sys WIN XP. Potrzebuje zapisać dane, które znajdują się np. w Form1 do pliku. A następnie kiedyś je tam odczytać. Jak to powinienem zrobić. Proszę o prosty przykład np. z zapisem 2 zmiennych. Dziękuję
Bry Mam nadzieje ze tym razem dobrze to zrobilem, wklejam kilka plikow bo nie wiem ktory mo byc, mam tylko dwie opcje zapisu :(
Witam Mam 2 problemy w Delphi. 1) Program ma otwierac automatycznie 16-e plików jeden po drugim z okreslonego katalogu. Ma to byc tak. Otwiera pierwszy plik - czyta liczbę jaka w nim jest - zamyka plik. Otwiera drugi plik - czyta liczbę jaka w nim jest - zamyka plik. I tak przez 16-e plików. 2) Jak to posortować: pióra 20 gumki 22 kredki 7 zeszyty 12...
Interesyje mnie wysłanie i pobranie np. pliku tekstowego na serwer ftp za pomocą komponentu indy10. Jak inaczej można to zrobić? Jak wysłać informację programem, aby inni użytkownicy mogli tę informację pobrać (tym samym programem)?
Może być dowolny komponent. Z resztą mam Indy10, ale nie potrafię go zainstalować. Może w tym też mi ktoś pomoże? Mam Delphi 7 Personal.
Witam Próbuje zrobić program, który za pomocą formularza html wysyła plik na serwer. kod w delphi var Stream : TIdMultipartFormDataStream; begin Stream := TIdMultipartFormDataStream.Create; try IdHTTP1.HandleRedirects:=True; IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; Stream.AddFile( 'c:\plik.ini', 'plik.ini',...
Musze napisać program w którym po wpisaniu nazwy obrazka w EditBoxie i wciśnieciu przycisku pojawi się dany obrazek z folderu pliki (który ma być w katalogu z programem). Prosiłbym o pomoc w rozpoczęciu tego programu , gdyż nie mogę nigdzie znaleźć jak pobrać zdjęcie z katalogu.
Witam. W katalogu mam 16-e plików txt. W nich są zapisane dane . Przykład: plik1.txt - dane w pliku 1 3 44 23 77, plik2.txt - dane w pliku 22 44 325 23 99 itd. Moj problem - chcę aby program automatycznie otwierał kazdy plik z katalogu i automatycznie zapisywał dane ze wszystkich plików do jednego pliku np: razem.txt Dzięki
format pliku .txt nic nie czaje z tego co napisałeś, ale wiem o tym że musze użyć komend: assign, reset, read i close. ale nie wiem jka dokładnie bo w delphi już dawno nie robiłem a mi teraz wylecieli z zadaniem w szkole. Dodano po 12 jak na razie udało mi się zrobić tyle, ale program sie nie kompiluje: program NWD; {$APPTYPE CONSOLE} uses...
Oczywiście, że tablice są puste. Musisz je wcześniej wypełnić danymi ;) Gdyby plik współrzędnych miał np taką postać (x,y): 1 4 3 7 3 2 To wczytanie wyglądałoby mniej-więcej tak: [syntax=Delphi]var i,p: Integer; punkty: array of TPoint; plik: TStringList; begin try plik:=TStringList.Create; try plik.LoadFromFile('plik.txt'); SetLength(Tablica,plik.Count);...
Z takim kodem jak poniżej, program ci się na 100% "wysypie". [...]while not eof(TF) do begin readln(TF,S); //Pierwszy odczyt - OK if s = '' then begin z:=true; readln(TF,S); //drugi odczyt - bardzo ryzykowne. end; [...] Sprawdzasz na początku pętli while czy doszedłeś do końca pliku, a potem ponownie odczytujesz...
Chodzi o kodowanie polskich znaków w pliku TXT. Musiałbyś zrobić konwersje polskich znaków przy wczytywaniu na przykłąd przez StringReplace; Albo zrób swój edytor do TXT tak by z MEMO zapisywał do TXT wtedy standard będzie sie zgadzał.
Witam. Musiałem przenieść Delphi 7 z Win XP na Windows 7. Wszystko działa, ale na koncie z uprawnieniami Administratora. Jednak ja nie mogę mieć na nim takich uprawnień. Wie ktoś może do jakich gałęzi rejestru i do jakich folderów muszę mieć pełny dostęp, aby Delphi pracowało poprawnie? Delphi mam zainstalowane w folderze C:\Delphi7, mam do niego pełny...
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);...
Jednak nadal nie mam pomysłu jak to przetworzyć na Delphi. Może nie patrz jak przetworzyć, ale jak to od zera zrobić z pomocą filozofii Delphi gdzie podstawą jest użycie gotowych klas lub komponentów, posiadających w sobie mnóstwo użytecznych metod i własności. Nie mam w tej chwili nigdzie zainstalowanego Delphi, to nie za bardzo mam jak pomóc szczegółowo,...
Czyli poprostu odwrotna procedura do wczytywania danych?? Moze jakis przyklad?
sprawdziłbym ale nie wiem jak dobrać/ustawić komponenty... i na jakiej zasadzie wczytywane są kody z pliku... ok to zaraz będe wysyłał...
Ja bym w takim zaproponował utworzyć stringlistę, ustawić separator na przecinek i wczytywać pod DelimitedText każdą z linijek.
[syntax=delphi]if Edit1.Text=Form1.sl[i] then ... [/syntax] natomiast sl to StringList wczytywany następująco: [syntax=delphi]sl.LoadFromFile(od.FileNa...
Ja bym to zrobił zupełnie inaczej. Po pierwsze nie widzę sensu aby ilość "RadioButtonów" była uzależniona od liczby pytań... Chcąc dodać/Zmienić pytanie musisz Dodawać/edytować Kolejne RadioButtony... A gdyby tak było ich tylko 4 i Jeden Label? Powiedzmy, że po uruchomieniu aplikacja wczytywałaby z pliku textowego pierwsze pytanie i 4 odpowiedzi. Odpowiadasz...
Jak ma to dzialać tak jak piszesz to obrazek ten musi takze byc na kompie osoby u której uruchamiasz program. Wg mnie lepszym rozwiązaniem bedzie wrzucenie go do zasobów programu tak aby znajdował się w kodzie programu. Nie potrzeba wtedy ścieżki do pliku tylko ładowany bedzie on jako zasób. Poszukaj w necie info na ten temat. pzdr
wydaje mi się iż nie ma takiej możliwości, aby zmienić pierwszą linijkę... Rewrite usuwa całą zawartość pliku jeżeli plik ten istnieje, Reset otwiera tylko do odczytu, Append - jak sam kolega wspomniał, umożliwia dopisywanie na końcu pliku... Czyli nie da się tego zrobić operując na pliku tekstowym funkcjami rewrite/append :!: Można to zrobić otwierając...
Racja :/ Nie pomyślałem o tym. No to pozostaje Ci taki zapis : [syntax=delphi]unit wczytywaniepliku; interface uses Classes, SysUtils; procedure plikOtwierany(var plik : text); implementation //--------------------------------------... procedure plikOtwierany(var plik : text); var nazwaPliku:string; begin Writeln('Podaj nazwę pliku wraz...
procedure TForm1.FormCreate(Sender: TObject); var P:Tpicture; begin P:=Tpicture.create; P.LoadFromFile('xxx.bmp'); end; To jest ładowanie pliku bitmapy do zmiennej potem możesz ja wyświetlić: porocedure xxx; begin image1.Picture := P; end;
Nie wiem dokładnie, jak Delphi wewnętrznie przechowuje wczytane bitmapy, jeśli przechowuje je tak jak opisuję to dobrze, jeśli nie to trzeba napisać własną procedurę wczytywania plików (nie jest to trudne). Do rzeczy - jeśli po wczytaniu bitmapa jest przechowywana w pamięci jako ciągły blok pamięci, dodatkowo na piksel wykorzystane są 4 bajty (R G B...
Tym artykułem się kierowałem i w wypowiedzi z 16 Gru 2009 11:15 jest dodawanie http://www.elektroda.pl/rtvforum/topic15... i tak zrobiłem Możesz mi coś prościej napisać o tym pliku wczytywania bo nie jarze.
Jezek programowania? wrozki tu zagladaja? w delphi: memo.lines.loadfromfile(opendialog.f...
Ja z poziomu Delphi zamieniać kolory na bitmapach. Coś takiego mnie interesuje mój podstawowy obrazek który wczytuje z pliku bmp, jpg lub inny format graficzny, jest na nim zdjęcie przedmiotu który składa się z 4 kolorów np. żółty, zielony, czerwony, czarny - wszystko na białym tle lub innym do ustalenia. Chcę by moja aplikacja za pomocą 4 parametrów...
Do skryptu php jako znak wpisać ; czy Ow? A co do delphi to tak to powinno wyglądać z całym skryptem, Do zmiennej Fpage1 wczytuje pliki z txt. FPage1 : string; deFPage1 : string; StringList.Delimiter=';'; StringList.DelimitedText=(FPage1)... deFPage1 := DecodeBase64(FPage1); Tak to będzie wyglądać? Przyznam szczerze ze nie...
Ja ze strumieniami dałem tylko przykład. Strumienie to klasa napisana dla ułatwienia rzeczy programistą. Są inne sposoby i zwykle każdy problem można rozwiązać kilkoma sposobobami. Tylko trzeba brać siły na zamiary. Jeśli autor poradzi sobie z takim wczytywaniem, jak wspomniane (bardzo trafne) wczytywanie na segmenty to i lepiej. Tylko nie zawsze trzeba...
Zamiast wczytywać ręcznie BMP, można wykorzytsać gotowe komponenty Delphi. uses Graphics, jpeg; var Image : TGraphic; begin Image := TJPEGImage.Create; try Image.LoadFromFile('plik_do_binaryza... { teraz można dostać się do pikseli poprzez Image.Canvas.Pixels } { można wykonać binaryzację czy cokolwiek } Image.SaveToFile('plik_po_binaryzacj...
Szukam kawałka działającego kodu lub gotowego modułu wczytującego pliki OBJ lub jakiekolwiek inne z Blendera lub 3DS MAXa do programu w OpenGL. Najlepiej pod Delphi. Znalazłem w necie kilka przykładowych kodów, ale działają jedynie z obiektem dołączonym jako przykład. Z żadnym innym nie chcą działać :( PS był kiedyś w jakimś magazynie komputerowym wieloczęściowy...
Czyli pozostaje file of byte. Mozna by to zrobic tak: Przykladowa struktura pliku: liczba wpisow: byte; offset wpisu 1: longint; offset wpisu 2: longint; offset wpisu 3: longint; ... wpis 1: byte, byte, byte ... wpis 2: byte, byte, byte ... wpis 3: byte, byte, byte ... ... (przy zalozeniu, ze elementy tablicy sa typu byte) offset oznacza tu np.: odleglosc...
Przepraszam jeśli pytanie nie jest zbyt mądre, albo nie do końca jest zrozumiała jego treść, ale oto problem: Napisałem w Delphi program którego celem jest przekształcanie plików tekstowych z formatu A do B i to główny jego cel. Chciałbym żeby takie samo działanie następowało po wczytaniu pliku w aplikacji webowej (ja to rozumiem jako - dowolnej stronie...
Mętne to trochę. Chcesz używać do tego standardowego ReplaceDialog , czy po prostu chcesz zamieniać w tekście jedne litery na inne w z góry ustalony sposób? Z tego co napisałeś, wynika, że nie potrzebujesz żadnych operacji na plikach a jedynie zrobić jakąś formę prostego szyfrowania, przesuwając ASCII znaków o jeden w górę (a->b, b->c, c->d, itd). Możesz...
Możesz dokładniej opisać co oznacza "spis liczb, liter i cyfr występujących w wybranym pliku tekstowym", czy ma to wyglądać np. tak: a - występuje 10 razy b - występuje 4 razy O coś takiego chodzi? dokładnie chodzi o program który przeszukuje cały tekst i tworzy spis ilości liczb, ilości cyfr i ilości liter ,oraz np liczby a =1 liczby b=2 Sekcje programów...
Witam, podpowiedzcie proszę jak w Delphi napisać obsługę przesyłania pliku np. rar lub exe przez RS232. Pytam tylko i wyłącznie o sposób wczytywania pliku i dzielenia pliku na fragmenty o stałej długości i potem (po drugiej stronie) jak składać przychodzące pakiety i zapisywać na dysku. Jakie funkcje wykorzystać - czy wykorzystanie czegoś takiego jak...
mam pytanie jak wczytac wszystko z pliku txt do combobox ... mam problem bo mi wczytuje tylko 1 wiersz... plik txt zawiera : 1 2 3 4 i kod mam taki do wczytywania do comboboxa : procedure TForm1.FormCreate(Sender: TObject); var F: TextFile; S: string; begin if FileExists('plik.txt') then begin AssignFile(F, 'plik.txt');...
nie mogę tego zrobić. Wczytuję całą zawartość pliku taką jaka jest. nie mam wplywu na tekst jaki tam się znajduje. Poprostu dostaję XMLa z jakąś zawartością i staram się go podzielić po każdym wystąpieniu '>'. Wszystko jest dobrze gdy nie występuje w pliku znak APOSTROF. Do tego miejsca dzieli się, a jak wystąpi APOSTROF to przestaje.
Witam, Jak mogę pokryć procedurę ReadLN z dodaniem do niej kilku rzeczy? Mam z pozoru prosty problem, ale nie mogę wykombinować co robię źle. W aplikacji za każdym razem gdy wczytuję linię przetwarzanego pliku chciałbym dodać kilka rzeczy. Za wiele razy wywołuję w różnych miejscach programu tę funkcję, więc pomyślałem, że sobie po prostu pokryję procedurę:...
Mój program ma do przeszukania plik o objętości od kilkuset kB do kilkudziesięciu MB max. Robię to w ten sposób, że wczytuję cały plik do bufora w postaci tablicy (RAMu na pewno nie braknie ;) ). Potem od początku bufora pobieram do zmiennej "ramkę" np. 10 bajtów(długość szukanego ciągu), sprawdzam czy zawiera to czego szukam, a potem przesuwam ją o...
Program powinien mieć min. 3 atrybuty Powinien: - wczytywać, - edytować, - dodawać nowe elementy, - usuwać je, - wyszukiwać, - zapisywać do pliku. Moim zadaniem jest stworzyć bazę płyt cd z muzyką. Proszę o pomoc bo jestem zielony w tym temacie! :cry:
witam, można to zrobić na milion różnych sposobów ale zależy jak duże bywają te twoje pliki??? jeśli nie bywają ogromne to taki najszybszy pomysł jaki przychodzi mi do głowy: var sList: TStringList; begin sList := TStringlist.Create; try sList.LoadFromFile(nazwa_pliku); .... ... // tutaj wstawiasz pętlę która wczytuje do jakiejś zmiennej stringowej...
DELPHI. Mam problem. Utworzyłem tablicę StringGrid 4 x 100. Na formularzu widoczne jest tylko pierwsze 10 wierszy (tak chcę). Wczytuję do tej tablicy różne ilości wierszy z pliku tekstowego (odpowiednie części łańcucha do odpowiednich kolumn). Po wczytaniu tablica na ekranie pokazana jest od 1. wiersza. Chciałbym by program automatycznie ustawił aktywną...
Prosty kod: http://obrazki.elektroda.pl/3516156300_1... http://obrazki.elektroda.pl/6993794600_1... (z powodu ograniczeń na Forum musiałem BMP jeszcze zmienić na PNG, ale dokładnie tak to widać)
nie mam czasu teraz tego przesledzić...ale wydaje mi się że program nie dzieli na koniec przez wszystkie tak jak to miało miejsce w tej poprzedniej wersji. (z tym wczytywaniem z pliku to jednak pozostanę tak jak jest poprzedniej wersji....) ten co umieściłeś wyżej wydaje się bardzo skomplikowany...nie wiem w niektórych monetach o co chodzi.....wolałbym...
cześć Czy ktoś zna może sposób aby jak najprościej wyciągnąć dane z memo tzn do memo wczytuje plik ini S : String; NewStr, OldStr : String; begin S := memo1.lines[1]; OldStr := 'imie='; NewStr := ''; edit1.text:= StringReplace(S, OldStr, NewStr, [rfReplaceAll]);
Z tą ścieżką tak zrobiłem bo tak polecili mi w innym temacie. Tak zrobiłem, ponieważ chciałem, żeby wczytywało mi obrazki niezależnie od miejsca programu na dysku. A pliki muzyki są w formacie .wav i ścieżka również jest dobra. A co do media playera nie chcę go dawać, bo chodzi mi ogólnie o to żeby odtwarzał się dźwięk podczas na naciśnięcia zwykłego...
Ok dziękuję. Co do przykładu to właśnie o coś takiego mi chodziło. Ale: W moim programie to nie działa. Dodaję do listbox2 swoje itemy czyli wczytuje pliki mp3 i kiedy wywołam tą procedurę, która jest powyżej to on zastępuje moje mp3 w listbox 1 i pisze to samo w listbox 2. A ja potrzebuję żeby mi przepisywalo listbox2 do listbox1 i synchronizowało...
nie mam pojęcia jak sie zabrać za prace którą muszę napisać z programowania, muszę zrobić test jednokrotnego wyboru np. z matematyki,ktory jest wczytywany z pliku i poprawne opowiedzi sa zapisywane do innego plku ,test musi sie składać z 4 pytań,i na poczatku testu uczetnik powinien wpisać swoje dane
Naprawdę to takie małe tablice? Wydawało mi się, że to taka potężna struktura... 64 bity (tyle zajmuje w Delphi Real?) * 10.000 = 625 Kb. Wydawało mi się, że skoro to tylko część programu, to może być za dużo na obsługę i coś się krzaczy. Możecie mi w takim razie powiedzieć jak duże struktury mniej więcej bez kłopotu mogę obsługiwać w pamięci? Powiedzmy,...
wczytywanie pliku wczytywanie danych pliku wczytywanie pliku tablicy
piecyk gazowy słabo grzeje discolitez schemat asrock 775dual sterowniki
mikrokomputer cobra1 diora ws504
Wyciek płynu wspomagania w MAN TGA 26.430 D20 - przyczyny i naprawa Błąd 02.02.41 w Kärcher B110 R - Diagnostyka i Rozwiązania
