Проблема с записью результата в txt

[V@mpir]

Видел уже нечто подобное в других темах, но как мне кажется, проблема у меня в чем то другом, нежели у других форумчан.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var f:textFile;
s:string;
t:char;
begin
for t:='a' to 'z' do
AssignFile(f,'cifir.txt');
if FileExists('cifir.txt')
then Append(f) else Rewrite(f);
Writeln(f,t);
CloseFile(f);
end;

end.

В результате в текстовике только " } " и ничего более.

[Пепел Феникса]

о порядке действий посуди, что в твоем примере делает цикл?
писать надо было так:

procedure TForm1.Button1Click(Sender: TObject);
var f:textFile;
s:string;
t:char;
begin
AssignFile(f,'cifir.txt');
if FileExists('cifir.txt')
then Append(f) else Rewrite(f);
for t:='a' to 'z' do Writeln(f,t);
CloseFile(f);
end;

[pancho]

procedure TForm1.Button1Click(Sender: TObject);
var f:textFile;
s:string;
t:char;
begin
AssignFile(f,'cifir.txt');
if FileExists('cifir.txt') then Append(f) else Rewrite(f);
for t:='a' to 'z' do begin
  Writeln(f,t);
end;
CloseFile(f);
end;

если я верно понял что ты хочешь сделать с текстовым файлом,то алгоритм примерно такой..

[V@mpir]

Да спасибо я уже разобрался, но вот теперь в другом проблема

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var j,k,t,m,i,n:integer;
f:textFile;
b,c:string;

begin
if (edit1.Text='') or (edit2.Text='') then
ShowMessage('Поля не заполнены') else
begin
AssignFile(f,'rezul.txt');
if FileExists('rezul.txt')
then Append(f) else Rewrite(f);
b:=edit1.Text;
c:=edit2.text;
for i:=b to c do
writeln (f,i);
end;
end.

Тут естественно в типах ошибка я это сам понимаю, но не могу никак совместить типы разных компонентов. Edit требует string, a цикл integer и тд. В общем нужно разобраться с типами переменных.

[pancho]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var j,k,i,n,E1,E2:integer;
f:textFile;
begin
E1:=StrToInt(Edit1.text);
E2:=StrToInT(Edit2.text);
if (Edit1.text='') or (Edit2.text='') then 
ShowMessage('Поля не заполнены') else
begin
AssignFile(f,'rezul.txt');
if FileExists('rezul.txt')
then Append(f) else Rewrite(f);
for i:=E1 to E2 do
writeln (f,i);
end;
end. 


вроде так)не проверял,в блокноте писал)но по идее всё правильно)
не забывай что есть такие "переводилки" как:
FloatToStr: real->string
IntToStr: integer->string
ну и наоборот StrToInt и StrToFloat
надеюсь что правильно)

[Ntlegend]

а TStrings использовать не интересно??