Чтение/запись из файла

[Kinder424]

Как сделать, чтобы число из Label сравнивалось с тем, что уже записано в текстовый файл и если оно больше(число из Label), то файл перезаписывался?? Прошу помочь

[NetSpace]

var F:File;
   num1,num2:Integer;
   str:string;
   s:Char;

procedure .....//по нажатию кнопки или после чего-то ещё
begin
num1:=StrToInt(Label.Caption);
str:='';
AssignFile(F,'Name.txt');
Reset(F,1);
for i:=0 to FileSize(F)-1 do
begin
   Seek(F,i);
   BlockRead(F,s,1);
   str:=str+Chr(ord(s));//char -> string
end;
num2:=StrToInt(str);
if(num2<num1)then
for i:=1 to Length(str) do
begin
   Seek(F,i-1);
   BlockWrite(F,str[i],1);
end;
CloseFile (F);
end;

[Stilet]

А я бы делал так:

with TStringList.Create do begin
 LoadFromFile('Блабла');
 if StrToIntDef(Strings[0],0)<StrToIntDef(Label.Caption,0) then
  Strings[0]:=Label.Caption;
 SaveToFile('Блабла');
free;
end;

[Kinder424]

Спасибо, но у меня почему то не перезаписывает файл, уже несколько раз перепробовал..
Могли бы вы онлайн посмотреть в чем проблема?

[nick]Stilet[/nick],
А если у меня вместо Label будет переменная типа integer, как можно оформить?
Сейчас выдает такую ошибку
Error: Incompatible type for arg no. 1: Got "LongInt", expected "AnsiString"

Сообщение от Stilet

А я бы делал так:

with TStringList.Create do begin
 LoadFromFile('Блабла');
 if StrToIntDef(Strings[0],0)<StrToIntDef(Label.Caption,0) then
  Strings[0]:=Label.Caption;
 SaveToFile('Блабла');
free;
end;

А если у меня вместо Label будет переменная типа integer, как можно оформить?
Сейчас выдает такую ошибку
Error: Incompatible type for arg no. 1: Got "LongInt", expected "AnsiString"

[Stilet]

Правильный вопрос
Вот для таких случаев придумали INI файлы.
Смотри:
1) http://www.programmersforum.ru/showthread.php?t=14551
2) http://www.programmersforum.ru/showthread.php?t=64620

[NIKOLAYY2]

А если у меня вместо Label будет переменная типа integer, как можно оформить?

Загрузил в переменную типа TStringList-а
И там переменная и тут переменная, сравнил две переменные, обработал условия, записал-перезаписал, сохранил.

[Kinder424]

Сообщение от NIKOLAYY2

Загрузил в переменную типа TStringList-а
И там переменная и тут переменная, сравнил две переменные, обработал условия, записал-перезаписал, сохранил.

Можно пример на коде?

[NIKOLAYY2]

Текстовый файл test.txt создай с числом в папке с проектом.

var
  a, b: Integer;
  List: TStringList;
begin
  a := StrToInt(Label1.Caption);
  List := TStringList.Create;
  List.LoadFromFile('test.txt');
  b := StrToInt(List.Strings[0]);
  if a > b then
  begin
    ShowMessage(IntToStr(a) + ' > ' + IntToStr(b) + ', файл будет перезаписан');
    List.Text := IntToStr(a);
    List.SaveToFile('test.txt');
  end;
  List.Free;
end;

[Kinder424]

Сообщение от NIKOLAYY2

Текстовый файл test.txt создай с числом в папке с проектом.

var
  a, b: Integer;
  List: TStringList;
begin
  a := StrToInt(Label1.Caption);
  List := TStringList.Create;
  List.LoadFromFile('test.txt');
  b := StrToInt(List.Strings[0]);
  if a > b then
  begin
    ShowMessage(IntToStr(a) + ' > ' + IntToStr(b) + ', файл будет перезаписан');
    List.Text := IntToStr(a);
    List.SaveToFile('test.txt');
  end;
  List.Free;
end;

Спасибо большое! Выручили!