Translate a Delphi code to Java code

Article View: borland.public.jbuilder.java.language

Article #641

Back to borland.public.jbuilder.java.language Previous Next

#641

From: Ronaldo
Date: Tue, 05 Apr 2005 22:49

29 lines
1613 bytes

Hi all !!!!
I have the follow Delphi code, and I need rewrite that code in Java, but I don�t know how do that ... 

I appreciate your help in advance.

Ronaldo.

Delphi code :

procedure TBackupFile_S3R.DeCompressOldMethod();
var
    vls_out : TextFile;
    vls_in  : TextFile;
    vls_Texto : String;
begin
   vls_Texto := 'c:\temp\';
   AssignFile(vls_in, vls_Texto + '\inputfile.zip');
   AssignFile(vls_out, vls_Texto + '\outputfile.txt');
   ReWrite(vls_out);
   Reset(vls_in);
   While NOT EOF(vls_in) Do
   Begin
      ReadLn(vls_in, vls_Texto);
      WriteLn(vls_out, Copy(vls_texto, Pos(#$A#$A#$A, vls_texto) + 3, Length(vls_texto) - Pos(#$A#$A#$A, vls_texto) + 3));
   End;
   Close(vls_in);
   Close(vls_out);
end ;

Technical Details

Message-ID: <425307fa$1@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news2.google.com!newsread.com!newsprint.newsread.com!news.glorb.com!npeer.de.kpn-eurorings.net!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: f74b3,c0306b9cec2e57c1,start
X-Google-Attributes: gidf74b3,public
X-Google-Language: ENGLISH,ASCII
From: "Ronaldo" <rsv29@hotmail.com>
Sender: "Ronaldo" <rsv29@hotmail.com>
Reply-To: "Ronaldo" <rsv29@hotmail.com>
Subject: Translate a Delphi code to Java code
Newsgroups: borland.public.jbuilder.java.language
X-User-Info: 200.178.82.133     
X-Forwarded-For: 10.43.11.160
NNTP-Posting-Host: 207.105.83.66
Message-ID: <425307fa$1@newsgroups.borland.com>
Date: 5 Apr 2005 14:49:46 -0800
X-Trace: newsgroups.borland.com 1112737786 207.105.83.66 (5 Apr 2005 14:49:46 -0800)
Lines: 29
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news2.google.com!newsread.com!newsprint.newsread.com!news.glorb.com!npeer.de.kpn-eurorings.net!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail