Jak czytać znak po znaku z pliku .txt

0

Witam, {hello}
Jak w temacie plus przeczytany znak zapisać do zmiennej.-------------------------------------------------
Pozdrawiam i życzę miłego dnia.

0

nie wiem o o dokladnie chodzi i do czego i to potrzebne :-)
ale moze to sie tobie przyda:
var
SL: TStringList ;
Znak: String;
i: Integer;
begin
SL := TStringList.Create;
SL.LoadFromFile('C:\jakis_pliczek.txt');
for i := 0 to Length(SL.Text) do
begin
Znak := SL.Text[i];
tutaj jakies operaje na znaku np:
{
if znak = 'a' then
ShowMessage('Wlasnie przeczytalem znak "a"');
okienko pokaze sie za kazdym razem gdy procedura natrafi na znak "a" :)
}
end;
end;

--
-=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

LKS- dobrze kombinujesz, ale ja mam kilka "ale":

Primo: var Znak : Char;
Secudno:Gdzie zwolnienie pamieci ?
Tercio: Gdzie to czytanie "po znaku" ?

ale ok - przyjmujemy ze wprawny programista sie polapie - tylko
ze tutaj ich malo, a pytajacy na takiech nie "brzmi".

Moim zdaniem jesli faktycznie chcesz czytac "po znaku" nalezalaoby
potraktowac ten plik jako file of Char;

0

Primo: var Znak : Char;
no chyba masz racje :-)

Secudno:Gdzie zwolnienie pamieci ?
nom fakt zapomnialem
SL.Free;

Tercio: Gdzie to czytanie "po znaku" ?
a to jest w tej petelce for :-)

ps1. przepraszam za wszystkie bledy jakie tam popelnilem:-)

ps2. Fojcik napisz jak ty bys rozwiazal ten problem :-)
---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

:-) No chyba juz napisalem. Twoje rozwiazanie jest git, tyle tylko ze przyjales ze gosc chce wczytac wszystkie znaki i podac je obrobce - a jego pytanie brzmialo "Jak czytac znak po znaku". W tym przypadku zrozumialym bedzie roziwazanie z plikem typowanym file of Char. Wiec kod wygladalby jakos tak :

function ReadCharByChar(filename : string) : Boolean;
var Cfile : file of Char;
Rchar : Char;
begin
Result := False;
AssignFile(CFile,filename);
{$I-}
Reset(CFile)
if IoResult&lt&gt0 then Exit;
while not Eof(CFile) do
begin
Read( RChar);
{bla bla}
end;
CloseFile(CFile);
Result := True;
end;

przyklad wrecz banalny ....

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0