@zero: TurboPascal-Projekts in Delphi zum laufen bringen...
so!
da zero misch ja drauf angesprochen hat, wie man die TP-projects von info bei delphi zum laufen bringt und er, als isch es erklärt habe, nich grad danach aussah, als hätte er´s kapiert, hier nochmal mit beispiel (du hast ja die selben, wie isch auf dem PC gespeichert):
wir nehmen das beispiel "QUADR-FU.PAS":
im Pascal-format, sieht es so aus:
========================
program quadr;
uses crt;
var xa,xb,xc,x1,x2,p,q: real;
begin
clrscr;
textcolor (4);
writeln ('Die Quadratische Gleichung xý+px+q!');
writeln ('===================================');
textcolor (7);
writeln;
write ('Bitte geben Sie den Wert f?r ''p'' ein: ');
readln (p);
writeln;
write ('Bitte geben Sie den Wert f?r ''q'' ein: ');
readln (q);
writeln;
writeln ('=====================================');
writeln;
xa:=p/2;
xb:=sqr(xa)-q;
if xbNew->Other...->Console Application)
das sieht dann so aus:
===================
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
{ TODO -oUser -cConsole Main : Insert code here }
end.
=====================
Das BLAUE kann weg, aber das GRÜNE muss bleiben!!!
jetz kopierst du ersteinmal den pascal-code in das neue projekt hinein und und setzt alles so hin, wie es normalerweise gehört! (variablen zu "var", programmnamen anpassen, schauen, ob alles benötigte in "begin...end" drin ist etc.)
nun entfernst du erst einmal die uses "crt" und lässt (bei diesem programm) nur das neue "SysUtils" stehen!
Nun entfernst du das "clrscr" und die ganzen "Textcolor ()", da diese von delphi in der consolen-application nicht unterstützt werden!
hier kann es auch passieren, dass ein paar "begin" - "end" unnötig werden.
genauso wirst du "variable:=readkey" durch "readln()" ersetzen müssen, wenn es vorkommen sollte in einem anderen projekt!
Das kästchen, das anstelle des "ü" bei "für" steht, lässt du so! da delphi in console applications die direkte eingabe von umlauten, sowie dem "ß" auch nicht unterstützt! Das kästchen wird allerdings in während der ausführung richtig dargestellt.
das währe es schon!
wenn man die strukturierung des quelltextes noch etwas aufräumt
sieht alles nun so aus:
==========
program quadr;
{$APPTYPE CONSOLE}
uses
SysUtils;
var xa,xb,xc,x1,x2,p,q: real;
begin
writeln ('Die Quadratische Gleichung xý+px+q!');
writeln ('===================================');
writeln;
write ('Bitte geben Sie den Wert f?r ''p'' ein: ');
readln (p);
writeln;
write ('Bitte geben Sie den Wert f?r ''q'' ein: ');
readln (q);
writeln;
writeln ('=====================================');
writeln;
xa:=p/2;
xb:=sqr(xa)-q;
if xb