memo + edit + textak

beni017 · Napísal **beni017**: 28.03.2014 22:42

potrebujem vediet či sa dá spraviť niečo takéto:
mam *.txt súbor vo vnutri su napr. v riadku hodnoty 50 60 70
načitam texták do memo a potreboval by som do troch editov načítať z toho mema alebo aj priamo čísla z jedneho riadku.
každe do jedneho editu. Učim sa mesiac tak nebudte moc prísny ak je to tak jednoduché.

F3RY · Napísal **F3RY**: 28.03.2014 22:47

Jasne ze sa to da. Aky zmysel ma nacitavanie z mema, ked to mozes nacitat rovno z txt suboru? Ukaz svoj vytvor.

beni017 · Napísal autor témy **beni017**: 28.03.2014 23:08

prave ja som to mal spravené zvlášť ale memo tam mam na to aby bolo vidiet uvádzané hodnoty ktoré potom vstupuju do vypoctu. A vzdy potrebujem načítat konktretne tri hodnoty z jedneho riadku. myslel som ze by to slo ako nieco takéto

Kód:

var
t: TextFile;
x: real;
begin
 AssinFile(t,'C:\plocha.txt');
 reset(t);
 a cez funkciu read(t,x);
neviem neprišiel som na to ako rozdeliť jednotlivé čísla od seba a načítať z riadku zvlášt 
jedine som načítal pomocou
edit1.text:=memo1.lines[0];

ja som geodet a robím aplikáciu na počítanie k nameraným hodnotám tak sa snažím uz mam vyriešené vypocetne casti a toto mi vrta hlavou

F3RY · Napísal **F3RY**: 28.03.2014 23:50

Pouzi tag code, ked vkladas kod.
Cele nacitanie je zle. Musis pouzit cyklus, ktory prejde cely subor(while not EOF(t)). Ak ta zaujmaju iba 3 cisla, nacitas ich pomocou funkcie readline, nacita tie cisla, a posunie kurzor na novy riadok. 3 cisla nacitas takto: readln(t,x1, x2, x3); Samozrejme Xka su typu integer/real/byte, zalezi aky format cisla mas na vstupe. Do Edit musis vkladat string(text). Najjednosuchsia moznost je pretypovanie(napr. integer si prevedies na string, pomocou funkcie inntostr()).
Edit bude vyzerat takto: Edit1.Text := inttostr(x1)+' '+inttostr(x2)+' '+inttostr(x3);
To je zaklad, skus to dat dokopy. Potom doriesime dalsie veci.

beni017 · Napísal autor témy **beni017**: 29.03.2014 11:32

akurat nechápem ten tag code(vo vlastnostiach sa definuje tag a mam zvolit za tag neaku hodnotu napr pre medzeru?) zatial mi to ukaze akurat v edite 0 0 0

Kód:

procedure TForm3.Button1Click(Sender: TObject);
var t:TextFile;
x1,x2,x3:integer;
begin
  AssignFile(t,'C:\plocha1.txt'); Reset(t);
  while not eof(t) do
    begin
     readln(t,x1,x2,x3);
    end;
  edit1.text:=inttostr(x1)+' '+inttostr(x2)+' '+inttostr(x3);
  CloseFile(t);
end;

end.

// Spojený príspevok Sob 29.03.14 15:14

tak uz som to spravil vdaka moc :-D

// Spojený príspevok Pon 07.04.14 17:36

mam este dotaz existuje v delphi nieco ako listbox ale bez automatickeho scroll baru? alebo neako vypnut scroll bar?

beni017 · Napísal autor témy **beni017**: 08.04.2014 22:42

skusil som nieco taketo
načíta mi riadky ale nerozdeli do stlpcov cely riadok zostane v jednej bunke fakt by som potreboval pomoct dik moc :-(

Kód:

Procedure LoadFromTextFile(FileName:String; StringGrid:TStringGrid);
Var
 StringList:TStringList;
 Index:Integer;
Begin
 StringList:=TStringList.Create;
 Try
 StringList.LoadFromFile(FileName);
 StringGrid.RowCount:=Succ(StringList.Count);
 StringGrid.ColCount:=1;
 For Index:=0 To Pred(StringList.Count) Do
 StringGrid.Cells[0,Succ(Index)]:=StringList[Index];
 Finally
 StringList.Free;
 End;
End;
procedure TForm3.Button1Click(Sender: TObject);
begin
 LoadFromTextFile('d:\skola\diplomka skutocne\efemeridy1.txt',StringGrid1);
end;

end.

F3RY · Napísal **F3RY**: 08.04.2014 23:00

S tymto som sa este nestretol: StringList.LoadFromFile(FileName);
Najlepsie bude, ak si vytvoris vlastnu funkciu, ktora ti ten subor nacita. Ulozis si ho napriklad do pola stringov(kazdy prvok bude obsahovat jeden riadok), najlepsie by bolo dvojrozmerne pole, kde budes mat ulozene slova. Potom to hravo nacitas.
Davnejsie som riesil v stringrid databazu, mozno ti to pomoze: http://pastebin.com/8ADmW9x3

beni017 · Napísal autor témy **beni017**: 08.04.2014 23:09

ok skusim to pozriet :-)

walther · Napísal **walther**: 09.04.2014 0:14

Keď vkladáš kód na fórum, obaľ ho do tagu CODE...

beni017 · Napísal autor témy **beni017**: 13.04.2014 18:32

este by som potreboval jednu radu ako by sa dalo spravit nieco taketo mam txt v nom pod sebou cisla a potrebujem nieco co vzdy ked kliknem na button sa posunie o riadok nizsie to citanie nevies o niecom takom? Priklad: pri kliknuti na button sa mi prve cislo vypise v listbox ked zas kliknem vypise sa druhe........

F3RY · Napísal **F3RY**: 13.04.2014 19:10

V akej strukture si uchovavas udaje? Dufam, ze pri kazdej operacii to nenacitavas z toho textaku

beni017 · Napísal autor témy **beni017**: 13.04.2014 19:34

mam to v stringgrid

beni017 · Napísal autor témy **beni017**: 06.07.2014 13:57

mam dotaz ked mam stringgrid a chcem jeden stlpec hodit do hodnoty x1 napr ako integer tak mi to hadze tuto hlasku "is not a valid floating point value" ked dam vypisat hodnotu x1 do napr listboxu tak mi to pekne ukazuje ze je v nej ulozeny stlpec ale nechcem aby mi vyhadzovalo tu hlasku pouzivam bezne prevedenie

x11:=strtoint(stringgrid2.cells[0,q]);

memo + edit + textak

Podobné témy