View Full Version : Simple text viewer in MP
streak
16-07-2007, 09:19 PM
Hi
Could anybody help to make a simple up-down text viewer from resource *.txt. [ like notepad but without ability to edit, only view ]
Ill be wery glad and thankfull.
str
pstudio
16-07-2007, 11:10 PM
Edit. Didn't see it was Midlet :oops:
streak
17-07-2007, 05:41 AM
Ok so here it is a quick dirty code made in 5minutes. Maybe together we could figure out something less buggy than this:
program ReadTextFromRes;
var
PageTextTableNumber: integer;
res : resource;
line : string;
i : integer;
TextTable : ARRAY[1..500] of string;
procedure processKeyActions;
var key: integer;
begin
key := keyToAction(getKeyClicked);
if key = GA_UP then
Begin PageTextTableNumber := PageTextTableNumber - 1;
SetColor(0, 0, 0);
DrawText(texttable[PageTextTableNumber], 10, 33);
Repaint;
End;
if key = GA_FIRE then
Begin End;
if key = GA_DOWN then
Begin PageTextTableNumber := PageTextTableNumber + 1;
SetColor(0, 0, 0);
DrawText(texttable[PageTextTableNumber], 10, 33);
Repaint;
End;
end;
begin
PageTextTableNumber := 1;
res := OpenResource('/data1.txt');
if (resourceAvailable(res)) then
begin
for i:=1 to 150 do
begin
texttable[i]:=ReadLine(res);
end;
CloseResource(res);
end;
while GetKeyPressed <> KE_POUND do
begin
processkeyactions;
end;
end.
Its only simple code. Maybe you can propose something more useable.
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.