Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
ВнизВывод символ.перем. т. 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]
> Мой уровень: начинающий.
Твое решение: книжка про паскаль
← →
Юрий Зотов (2003-04-19 23:35) [2]Какие Мемо? Какие вообще компоненты? Зачем они здесь?
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c