[Delphi] Ucitavanje svake linije preko TMemo

[Delphi] Ucitavanje svake linije preko TMemo 31.03.2008. u 18:15 · pre 226 meseci #1

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.

Re: [Delphi] Ucitavanje svake linije preko TMemo 31.03.2008. u 18:43 · pre 226 meseci #2

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.

Potpis

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

Re: [Delphi] Ucitavanje svake linije preko TMemo 31.03.2008. u 19:17 · pre 226 meseci #3

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.

Re: [Delphi] Ucitavanje svake linije preko TMemo 31.03.2008. u 20:13 · pre 226 meseci #4

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.

Re: [Delphi] Ucitavanje svake linije preko TMemo 31.03.2008. u 21:10 · pre 226 meseci #5

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;

Potpis

viking ®

Re: [Delphi] Ucitavanje svake linije preko TMemo 31.03.2008. u 22:26 · pre 226 meseci #6

Radi :) U pitanju je bio WordWrap, cim sam stavio na false, sve radi kako treba.
Probacu i ostale predloge, hvala svima na pomoci.

Forum kao aplikacija na telefonu

Srodne teme