Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

[Delphi] Ucitavanje svake linije preko TMemo

[es] :: Pascal / Delphi / Kylix :: [Delphi] Ucitavanje svake linije preko TMemo

[ Pregleda: 2634 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

joeya1k

Član broj: 121332
Poruke: 46
79.101.223.*



Profil

icon [Delphi] Ucitavanje svake linije preko TMemo31.03.2008. u 17:15 - pre 166 meseci
Hocu preko memo-a iz datoteke svaku liniju redom da ubacujem u string da bi ih obradio.
Nesto ovako:
linija:string;
memo.Lines.LoadFromFile(Dat);
for i:=1 to brLinija do
begin
linija:= i-ta linija iz datoteke
end;

Probao sam sa memo.Lines.Strings, Text ali nece...
Hvala unapred.


 
Odgovor na temu

nikomak
Nikola Makić
Beograd

Član broj: 177053
Poruke: 65
*.eunet.yu.



+1 Profil

icon Re: [Delphi] Ucitavanje svake linije preko TMemo31.03.2008. u 17:43 - pre 166 meseci

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  S: String;
begin
 Memo1.Lines.LoadFromFile('c:\nekifajl.txt');
 for I := 0 to Memo1.Lines.Count - 1 do
  begin
   S := Memo1.Lines[i];
   Obradi(S);
  end;
end;


A zasto preko memo-a da obradjujes fajl ?
Pogledaj u Help-u TFileStream klasu.



TurboDispatchJumpAddressEnd
----
Knocka Fia
----
And so we meet, again in a different time
 
Odgovor na temu

joeya1k

Član broj: 121332
Poruke: 46
79.101.194.*



Profil

icon Re: [Delphi] Ucitavanje svake linije preko TMemo31.03.2008. u 18:17 - pre 166 meseci
Hvala na odgovoru.
Video sam da moze ovako preko memo-a i izgledalo mi je jednostavno pa sam probao.

Ovako kao sto si napisao sam vec probao i ocekivao sam da radi ali problem je sl.
U txt fajlu imam 3 linije teksta i svaka je duzine 10 karaktera. Rezultat za Memo1.Lines.Count bude 6, a S bude prvih 5 karaktera od prve linije. I tako redom...
Dok sam pravio to ovih dana primetio sam da mi je S bio duzine 7 karaktera, pa je onda lepo citao, sad cita po 5... nije mi jasno sta se dogadja.

Ako ima neke veze, ovo je stavljeno da se odradi na TForm1.FormCreate. Verzija Delphija je iz CodeGear RADStudio 2007.
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: [Delphi] Ucitavanje svake linije preko TMemo31.03.2008. u 19:13 - pre 166 meseci
Jesi probao da iskljucis WordWrap za taj memo ? ;\

Anyways, samo komplikujes stvari:

Code:

var
  SFile : TextFile;
begin
  AssignFile(SFile, 'fajl.txt');
  Reset(SFile);
    While not EOF(SFile) Do
    Begin
      ReadLn(SFile, FLine);
      // obradjujes FLine...
    End;
  CloseFile(SFile);


A mozes i preko TFileStream kao sto je Nikola rekao.
 
Odgovor na temu

viking13
Aleksandar Milanovic
SBB
Novi Beograd

Član broj: 131741
Poruke: 190
89.216.96.*



Profil

icon Re: [Delphi] Ucitavanje svake linije preko TMemo31.03.2008. u 20:10 - pre 166 meseci
A možeš da koristiš i TStringList.

Kad već koristiš D2007, najlakše je ovako.

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('fajl.txt');
    for s in sl do
    begin
      // obradi s
    end;
    sl.SaveToFile('fajl.txt');
  finally
    sl.Free;
  end;
end;

viking ®
 
Odgovor na temu

joeya1k

Član broj: 121332
Poruke: 46
79.101.194.*



Profil

icon Re: [Delphi] Ucitavanje svake linije preko TMemo31.03.2008. u 21:26 - pre 166 meseci
Radi :) U pitanju je bio WordWrap, cim sam stavio na false, sve radi kako treba.
Probacu i ostale predloge, hvala svima na pomoci.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: [Delphi] Ucitavanje svake linije preko TMemo

[ Pregleda: 2634 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.