|
 | | |
| Autor | Správa |
|---|
chiwo
Užívateľ
Založený: 14.06.2007
Príspevky: 72
 |  Zaslal: Po 20.10.08 19:04 |   |
3. úloha:
Napíšte program, ktorý načíta textový súbor kresli.txt (http://mitinkas.googlepages.com/kresli.txt). Súbor obsahuje riadky s troma číslami - poradové číslo, x-ová súradnica a y-ová súradnica. Po prečítaní riadku nakreslite na grafickej ploche bod na súradniciach x, y a vypíšte pri ňom aj jeho poradové číslo. Môžete predpokladať, že súbor je korektne zadaný.
| kód: |
uses RobotUnit;
procedure TForm2.Button1Click(Sender: TObject);
var textak: TextFile;
r: TRobot;
vypis: string;
poradie, x, y:integer;
begin
AssignFile(textak, 'kresli.txt');
Reset(textak);
r:= TRobot.Create;
r.PW:=5;
while not SeekEof(textak) do
begin
read(textak, poradie, x, y);
r.movexy(x,y);
r.point;
{vypis:=IntToSTr(poradie);}
r.text('5');
end;
CloseFile(textak);
end;
|
namiesto 5-ky mi vypisuje take cierne obdlznicky a neviem preco aj som pozeral RobotUnit(najdete v 2.predáške na www.delphi.input.sk) a ma to byt string Skusal som s tym robit hocico ale stale su tam tie stvorceky Ak vie niekdo podarit tak budem velmi vdacny |
| |
   |
|
stopa27
Užívateľ
Založený: 19.09.2006
Príspevky: 729
Bydlisko: Ružomberok<->Bratislava (21)
| | Zaslal: Ut 21.10.08 15:47 | |
zrejme je to sposobene r.PW=5 a r.point. skus dat r.PW=2 a namiesto r.point dat r.fd(2) |
_________________
Quick memory editor 5.5 (RAW 0xFC58C) : Hi crackers, please don't crack me. Thank you! | |
    |
|
chiwo
Užívateľ
Založený: 14.06.2007
Príspevky: 72
| | Zaslal: Ut 21.10.08 19:06 | |
ok uz to ide to pw nebol problem lebo pw som mal aj jedna a stale to robilo blbosti tak som si nadstavil takto a ide to v poho
| kód: |
r.pw:=5;
r.fd(1);
r.pw:=1;
vypis:=IntToSTr(poradie);
r.text(vypis);
|
|
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
