объединенная строка в Pascal

#save #concatenation #pascal #text-files #string-concatenation

#Сохранить #объединение #pascal #текстовые файлы #строка-объединение

Вопрос:

В настоящее время я использую команду writeln для записи в текстовый файл.

Есть ли какой-либо способ использовать объединенную строку с использованием record в pascal?

Это мой текущий код на pascal:

 Procedure SaveTopScores (Var TopScores : TTopScores);
    Var
    Count : Integer;
    CurrentFile : Text;
    Begin
    Assign(CurrentFile, 'HiScores.txt');
    Rewrite(CurrentFile);
    For Count := 1 To MaxSize
      Do Writeln(CurrentFile, TopScores[Count].Name, ',', TopScores[Count].Score);
      Close(CurrentFile);
    End;

И это запись в файл в VB, есть ли способ создать объединенную строку в pascal?

1. Какая версия? Более новые версии Delphi имеют, например Format()

2. @Turbo J: Я использую Dev-Pascal 1.9.2, вот экран «О программе». Я не знаю, какая версия, может быть, это вам поможет? — cl.ly/0V1r3F2m203Y1l3p2m2K

3. Вы избавите себя от множества головных болей, если научитесь правильно форматировать свой код. Стиль (или его отсутствие), который вы используете сейчас, чрезвычайно сложен для чтения и очень подвержен ошибкам. Вы видели это в предыдущих вопросах, например, отсутствие begin ..end, из-за которого она не компилировалась. Также, пожалуйста, не добавляйте изображения в код (как вы сделали с примером VB выше). Это делает ее недоступной для поиска и, в случае того, что вы опубликовали выше, нечитаемой.

Ответ №1:

Попробуйте str1 str2 . Я думаю, что это расширение исходного языка Pascal, но оно должно быть довольно распространенным.

1. Обновлен код до: cl.ly/0s3p3T121O2B2g1K1C2J Но ошибка отсутствует ‘Ошибка: Несовместимые типы: получено «LONGINT», ожидаемая «SHORTSTRING» в строке «Do» : =. Существует ли определенный тип переменной, который я должен использовать?

2. Вы добавляете целые числа в строку и пытаетесь сохранить их в виде переменной string. Это не может сработать. Возможно, вы хотите изменить строку на тип string и преобразовать score в string с помощью inttostr

3. Спасибо, теперь это работает. Проблема в том, что теперь при использовании этого типа сохранения существующие оценки удаляются, а новые записываются в .txt.