proszę o pomoc w Delphi

0

Witam Was. Jestem początkującym programistą w Delphi. Mam kilka publikacji wydawnictwa Helion jak również kurs internetowy. Niestety nigdzie nie spotkałem jakiejś wskazówki na rozwiązanie mojego problemu. Opiszę go jak najdokładniej :

  1. na formularzu mam dwa komponenty Memo
  2. na jeden komponent Memo wczytuję plik tekstowy w którym są 3 kolumny z liczbami typu real i integer ( tzn. w jednym wierszu na początku jest jedna (integer) potem 4 spacje druga (real ) i trzecia (real) np .
    34 65.17 23.90
    23 87.54 31.67)
  3. przyciskam Button i na drugim komponencie Memo pojawia sie tekst wykorzystujący wczytane słupki liczb np.:
    mam 34 lata i waże 65.17 kg i mam 23.90 złota
    mam 23 lata i waże 87.54 kg i mam 31.67 złota
    Po prostu nie mam pojęcia jak wczytać coś z pliku tekstowego np. liczby i coś z tym zrobić np. dodać je i wyświetlić wynik. Jak program je rozpozna ?
    Ponadto jak tekst przenieść z jednego komponentu Memo do drugiego.
    I ostatnie jaki kod ASCII ma znaczek '
    ( chodzi o wyśietlenie go np.
    Memo.Lines.Add(' ' - to fajny znaczek') - jak ten dodatkowy wyświetlić
    Dzieki bardzo za poradę
    pozdrawiam
    Sławek
0

Ja bym zrobił to za pomoca plików *.ini
w pliku wyglądałoby to tak..

[MAREK]
wiek=23
waga=78
waluta=34,43

[JACEK]
wiek=23
waga=89
waluta=00,03

jak cię to zainteresuje to napisz maila to ci zrobie przykład
[email protected]
POZDRAWIAM
DELPHI RULEZ
Teraz jeszcze i C++

0

&gtI ostatnie jaki kod ASCII ma znaczek '
&gt( chodzi o wyśietlenie go np.
&gt Memo.Lines.Add(' ' - to fajny znaczek') - jak ten dodatkowy wyświetlić
&gtDzieki bardzo za poradę
&gtpozdrawiam
&gtSławek

na tej stroniejest programik do zassania, pokazuje kody [email protected]
POZDRAWIAM
DELPHI RULEZ
Teraz jeszcze i C++

0

Ja bym zrobil jeszcze inaczej :-) A dokladnie zrobil bym aby linijka wygladala tak: 21;32123.43;3234;234 i teraz wystarczy to ladnie rozdzielic:

var
Lancuch : string;
P : Integer;
begin
Lancuch := '21;32123.43;3234;234';
P := Pos(';', Lancuch);
while P &gt 0 do begin
Memo1.Lines.Add(Copy(Lancuch, 1, P - 1));
Delete(Lancuch, 1, P);
P := Pos(';', Lancuch);
end;
Memo1.Lines.Add(Lancuch);
end;

i wiesz ze w
Memo1.Lines.strings[0]='21';
Memo1.Lines.Strings[1]='2123.43';
itd. Mysle ze ten sposob tez nie jest zly. Jezeli dobrze mi sie wydaje to jest artykol o strumieniach gdzie Adam pisze jak zrobic wlasna ksiazke adresowa to tez moglbys wykozystac :-)--pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Masz cos ciekawego. Napisz gotowca:
http://www.4programmers.net/delphi/gotowce/index.php?action=create

Delphi 6 Personal.

0

jezeli chodzi o znaczek '
to aby dodac go w nowej linii memo piszemy cos takiego:
Memo1.Lines.Add(`');

a teraz przepraszam ze troche zasmiece ten watek :)
Do Lofix'a:
to juz kolejny watek w ktorym widze kilka postow jeden pod drugim twojego autorstwa
troszke sie z tym uspokoj
jak piszesz nowy post to przeczytaj jego tresc 10 razy i jak okaze sie ze niczego nie zapomniales to kilkaj w "Publikuj" :)
a jak okaze sie ze czegos zapomniales to chcialem ciebie powiadomic ze jest opcja edycji wlasnych postow (to ta ostatnia ikonka z olowkiem "Usun post(tylko dla moderatorow)") !!! :)

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1