day & night

Delphi, вопросы по Delphi
Дата обновления: , перейти к новому сообщению
icon14
#1
ЭЖД



*nix`оид
[SoftoRooMTeaM] Group Icon

Группа: Наши Люди
Сообщений: 11.935
Регистрация: 18.09.2004
Пользователь №: 1.679


Респектов: 789
-----XXXX-




ph34r.gif Как запомнить в переменую данные из, Ну например, Еdit1
User is offline
Go topGo end

Ответов(1 - 9)
4.12.2004 - 9:32
#2
Elephant



Unregistered














var
i : String;

i:= Edit1.Text;
Go topGo end
9.12.2004 - 18:04
#3
SpiderX



Siemensovod
[SoftoRooMTeaM] Group Icon

Группа: Наши Люди
Сообщений: 962
Регистрация: 5.11.2004
Пользователь №: 1.716


Респектов: 26
-----X----




Нужен исходник FTP сервера написанного с использованием компонентов Indy 9 (входят в поставку Delphi 7).
User is offline
Go topGo end
icon14 8.05.2005 - 21:41
#4
NEITR0N



профи!
Group Icon

Группа: Наши Люди
Сообщений: 607
Регистрация: 11.04.2005
Пользователь №: 11.505


Респектов: 23
-----X----




Как сделать, чтобы заданные переменные софранялись в файл и как потом этим переменным задать значания из этого файла?
User is offline
Go topGo end
9.05.2005 - 6:48
#5
ЭЖД



*nix`оид
[SoftoRooMTeaM] Group Icon

Группа: Наши Люди
Сообщений: 11.935
Регистрация: 18.09.2004
Пользователь №: 1.679


Респектов: 789
-----XXXX-




QUOTE(Elephant @ 4.12.2004 - 10:32)
var
i : String;

i:= Edit1.Text;
*



ph34r.gif Не все так просто, как кажется: i:=StrToInt(Edit1.Text);
User is offline
Go topGo end
9.05.2005 - 8:39
#6
NEITR0N



профи!
Group Icon

Группа: Наши Люди
Сообщений: 607
Регистрация: 11.04.2005
Пользователь №: 11.505


Респектов: 23
-----X----




QUOTE(ЭЖД @ 9.05.2005 - 6:48)
QUOTE(Elephant @ 4.12.2004 - 10:32)
var
i : String;

i:= Edit1.Text;
*



ph34r.gif Не все так просто, как кажется: i:=StrToInt(Edit1.Text);
*



В смысле? По моему все просто. Объясни.
User is offline
Go topGo end
9.05.2005 - 12:14
#7
Dolphin



Unregistered














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.

Типа того? Тут правда без проверок...
Go topGo end
icon1 25.05.2005 - 23:50
#8
Lomak.XP



Unregistered














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

Считывание данных и присвоение переменным значений
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

К сожалению так можно делать не со всеми переменными, например нельзя с типом TFontStyles(можно но очень нудно и длинно ), Boolean(но я выкрутился и тоже получилось ).
Go topGo end
4.06.2005 - 6:55
#9
ЭЖД



*nix`оид
[SoftoRooMTeaM] Group Icon

Группа: Наши Люди
Сообщений: 11.935
Регистрация: 18.09.2004
Пользователь №: 1.679


Респектов: 789
-----XXXX-




ph34r.gif Как поменять шаг в цикле For?
User is offline
Go topGo end
4.06.2005 - 12:23
#10
mysterio



TLG
Group Icon

Группа: Наши Люди
Сообщений: 841
Регистрация: 16.01.2005
Пользователь №: 4.390


Респектов: 161
-----X----




ЭЖД

Вместо for'a используй while или repeat ... until.
Например:
CODE
var nIndex : Integer;
....
Begin
...
 nIndex := 0;
 While nIndex <= 100 Do
 Begin
     ................
     nIndex := nIndex + Шаг;  
 End;
...
End;
User is offline
Go topGo end

Topic Options
Сейчас: 12.05.2024 - 5:04
Мобильная версия | Lite версия