Lazarus 3.2 (2024.02.28.)
Letöltés

  • Oldal:
  • 1

TÉMA:

LoadFromStream exception 2016 ápr. 28 12:30 #1969

  • ilyr
  • ilyr profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 7
  • Köszönetek: 0
Megoldódott... Ezer köszönet... :)

LoadFromStream exception 2016 ápr. 28 12:16 #1968

  • makgab
  • makgab profilkép
  • Törzsgárda tag
  • Törzsgárda tag
  • Hozzászólások: 280
  • Köszönetek: 1
Lehet hogy így kellene létrehozni az Ostr objektumot:
Ostr:= TStringList.Create( ... );

Nem tudom fejből, hogy kell-e a Create()-nek valami paraméter, szóval lehet hogy csak:
Ostr:= TStringList.Create;
Megköszönték: ilyr

LoadFromStream exception 2016 ápr. 28 11:04 #1967

  • ilyr
  • ilyr profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 7
  • Köszönetek: 0
Sziasztok!

Kezdőként próbálkozok Lazarussal egy kicsit ismét és elakadtam a következővel... Egy Stream-ből szeretném kibányászni TStringList-be a szöveget. Egy példát találtam ami tök jól működik is, de nekem kellene tudnom hivatkozni specifikus sorokra, így az anonym megoldás annyira nem jó...
with TStringList.Create do
  begin
    OutputStream.Position := 0; // Required to make sure all data is copied from the start
    LoadFromStream(OutputStream);
    writeln(Text);
    writeln('--- Number of lines = ', Count, '----');
    Free
  end;

Ez helyett megpróbáltam a következőt, aminek a szerény tudásom szerint ugyanazt kéne csinálnia, de a LoadFromStream sornál elszál SIGSEGV exception-el... :(
Var OStr : TStringList;
 
Begin
  OStr.Create;
  OutputStream.Position:=1;
  OStr.LoadFromStream(OutputStream);
  Writeln(OStr.Text);
  Writeln('--- Number of lines = ', OStr.Count, '----');}
  Readln;
  OStr.Free;
End;

Valakinek van ötlete, hogy mi lehet a gond?

Köszi!

  • Oldal:
  • 1