Как запомнить в переменую данные из, Ну например, Еdit1 Как запомнить в переменую данные из, Ну например, Еdit1 var
i : String;
i:= Edit1.Text;
i : String;
i:= Edit1.Text;
Нужен исходник FTP сервера написанного с использованием компонентов Indy 9 (входят в поставку Delphi 7).
Как сделать, чтобы заданные переменные софранялись в файл и как потом этим переменным задать значания из этого файла?
QUOTE(Elephant @ 4.12.2004 - 10:32)
var
i : String;
i:= Edit1.Text;
i : String;
i:= Edit1.Text;
Не все так просто, как кажется: i:=StrToInt(Edit1.Text); QUOTE(ЭЖД @ 9.05.2005 - 6:48)
QUOTE(Elephant @ 4.12.2004 - 10:32)
var
i : String;
i:= Edit1.Text;
i : String;
i:= Edit1.Text;
Не все так просто, как кажется: i:=StrToInt(Edit1.Text);В смысле? По моему все просто. Объясни.
QUOTE(ЭЖД @ 9.05.2005 - 11:48)
Не все так просто, как кажется: i:=StrToInt(Edit1.Text);
Это если тебе надо получить из ввода число, но точда и i должна быть целого типа. К тому же если данные непреобразуются возникнет исключение
QUOTE(SpiderX @ 9.12.2004 - 23:04)
Нужен исходник FTP сервера написанного с использованием компонентов Indy 9 (входят в поставку Delphi 7).
Тебе конкретно на Indy? Есть, но с помощью стороннего компонента.QUOTE(NEITR0N @ 9.05.2005 - 2:41)
Как сделать, чтобы заданные переменные софранялись в файл и как потом этим переменным задать значания из этого файла?
CODE
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
fname = 'test.txt';
var
f: TextFile;
a: Integer;
begin
AssignFile(f, fname);
if not FileExists(fname) then ReWrite(f)
else
begin
Reset(f);
ReadLn(f, a);
WriteLn('a = ', IntToStr(a));
end;
Write('Input NUMBER a: '); ReadLn(a);
ReWrite(f);
WriteLn(f, a);
CloseFile(f);
end.
Типа того? Тут правда без проверок...
QUOTE
Как сделать, чтобы заданные переменные софранялись в файл и как потом этим переменным задать значания из этого файла?
Очень просто!
QUOTE
//тело процедуры
//Задаём переменные
var f:textfile;
a:integer;
b:string;
//и т. д.
begin
//создаём файл, если существует, будет перезаписан!
//можно конечно добавить фичу чтоб спрашивало...
assignfile(f,'filename');
rewrite(f);
//задаём переменным значения
a:=101;
b:='XP GO!';
//пишем в файл
writeln(f,a);
writeln(f,b);
//закрытие файла
closefile(f);
end;
//end
//Задаём переменные
var f:textfile;
a:integer;
b:string;
//и т. д.
begin
//создаём файл, если существует, будет перезаписан!
//можно конечно добавить фичу чтоб спрашивало...
assignfile(f,'filename');
rewrite(f);
//задаём переменным значения
a:=101;
b:='XP GO!';
//пишем в файл
writeln(f,a);
writeln(f,b);
//закрытие файла
closefile(f);
end;
//end
Считывание данных и присвоение переменным значений
QUOTE
//тело процедуры
//Задаём переменные
var f:textfile;
a:integer;
b:string;
a1:string;
//и т. д.
begin
assignfile(f,'filename');
reset(f);
//Читаем из файла
read(f,a1);
//из типа string в Integer
a:=strtoint(a1);
//
read(f,b);
//закрытие файла
closefile(f);
end;
//end
//Задаём переменные
var f:textfile;
a:integer;
b:string;
a1:string;
//и т. д.
begin
assignfile(f,'filename');
reset(f);
//Читаем из файла
read(f,a1);
//из типа string в Integer
a:=strtoint(a1);
//
read(f,b);
//закрытие файла
closefile(f);
end;
//end
К сожалению так можно делать не со всеми переменными, например нельзя с типом TFontStyles(можно но очень нудно и длинно ), Boolean(но я выкрутился и тоже получилось ).
Как поменять шаг в цикле For? ЭЖД
Вместо for'a используй while или repeat ... until.
Например:
Вместо for'a используй while или repeat ... until.
Например:
CODE
var nIndex : Integer;
....
Begin
...
nIndex := 0;
While nIndex <= 100 Do
Begin
................
nIndex := nIndex + Шаг;
End;
...
End;
....
Begin
...
nIndex := 0;
While nIndex <= 100 Do
Begin
................
nIndex := nIndex + Шаг;
End;
...
End;
SoftoRooM © 2004-2024