Umgang mit Textdatei

[flomei]

Hallo!
In meinem Programm möchte ich gerne eine Textdatei zeichenweise einlesen um danach mit jedem Zeichen nen bisschen rumzufummeln...
Wie stelle ich das am Besten an? Mit nem Array oder ner Stringlist, oder womit?
Hab schon gesucht aber geholfen hat das alles nix...

DANKE im Vorraus!

MfG Florian

[justiver]

moin ....

ne Möglichkeit wäre :


Per Schleife Zeichen für Zeichen auszulesen

Delphi-Quellcode:

procedure ZeichenZaehlen;
Var
  AnzahlZeichenInText:Integer; // klar oder ?
  AktZeichen:Integer;
Begin
  AnzahlZeichenInText:=form1.Richedit1.gettextlenght // Beim Richedit Feld
  For i:= 1 to AnzahlZeichenInText do
  Begin
    AktZeichen:=copy (blabla,1,i) //oder so ähnlich
  end
End;

musste ausprobieren
Ich muß kurz mal meinen Source durchkramen ..
Ich glaube (weiß) ich hab' das schon mal gemacht !
werde meinen Beitrag Korrigieren , wenn ich's gefunden habe.
Gruß Justiver

[flomei]

hm...
Werden bei dieser Version ALLE Zeichen mitgenommen? Auch Leer- und Steuerzeichen?

MfG Florian

[justiver]

Alles wird eingelesen .... warte kurz , ich suche mal eben den Source Code...

Delphi-Quellcode:

procedure ZeichenFuerZeichen;
var
  i:integer; // Schleifen Zähler
  CharsInFile:Integer; // Anzahl der Zeichen insgesammt
  AktZeichen:String; // Aktuelles Zeichen 
Begin
  charsinfile:=form1.richedit1.GetTextLen; // Holt aus dem Richedit Feld Die länge der Zeichen
  for i:= 1 to charsinfile do
  begin
    AktZeichen := Copy(richedit1.text,i,1); // kopiert Zeichen für Zeichen in Variable AktZeichen
  End;
End;

Ich denke das wars .....
Justiver

[flomei]

Danke!
Werd mal sehen wie weit ich damit komme...

MfG Florian

[Manzoni]

benutz doch read in verbindung mit der textdatei bzw.

Delphi-Quellcode:

var zeichen : char;
BlockRead(Textfile, zeichen, 4);

könnte sein, dass das funzt.