Вывод символ.перем. т. Char в строку в компон. TMemo

← →
KSY © (2003-04-19 21:11) [0]

Здравствуйте.
Мой уровень: начинающий.
Моя проблема:
- вывод символьных переменных (типа Char) в компоненте
класса TMemo не в столбец, а в строку (как String).

Именно Char -
потому, что смысл кода считать информацию из текстового
файла, при считывании сравнивать символы (в моем случае цифры)
по методу исключения повторяющихся и полученный результат
записывать в другой файл.

??? - Можно ли решить этот вопрос используя компонент класса (TMemo)
или есть какая-то альтернатива.

КОД:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
mmOutput01: TMemo;
mmOutput02: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var
F1,F2:File of Char;
L,I,K:Integer;
Mas:array[1..10000] of Char;
X:Char;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
I:=0;
AssignFile(F1,"D:\DATA.txt");
Reset(F1);
While Not EOF(F1) do
begin
K:=0;
I:=I+1;
Read(F1,X);
mmOutput01.Lines.Add(X);
Mas[I]:=X;
For L:=I-1 downto 1 do
begin
If Mas[I]=Mas[L] then K:=1;
end;
If K=0 then
begin
Mas[I]:=X;
mmOutput02.Lines.Add(X);
end;
end;
CloseFile(F1);
end;

end.

С Уважением KSY!

← →
Palladin © (2003-04-19 21:20) [1]

> Мой уровень: начинающий.

Твое решение: книжка про паскаль

Какие Мемо? Какие вообще компоненты? Зачем они здесь?

var
FIn, FOut: TextFile;
Ch: char;
S: string;
begin
AssignFile(FIn, "MyInputFile.inp");
AssignFile(FOut, "MyOutputFile.out");
Reset(FIn);
Rewrite(FOut);
S := "";
while not EoF(FIn) do
begin
Read(FIn, Ch);
if Pos(Ch, S) = 0 then
begin
S := S + Ch;
Write(FOut, Ch)
end
end;
CloseFile(FIn);
CloseFile(FOut)
end;

Вывод символ.перем. т. Char в строку в компон. TMemo Найти похожие ветки